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Kommunicera med VIC 64S 


Det modema sättet att få information 

Kopplar du ihop ett universalmodem och ett teledataprogram 
med din VIC 64S så kan du kommunicera med videotexdata- 
baser via din telefonledning (75/1200 baud). Väljer du ett ter¬ 
minalprogram, kan du med samma modem ”tala” med andra 
VIC 64 ägare eller koppla upp dig mot databassystem som 
kommunicerar med 300/300 baud (1 baud = 1/10 tecken per 
sekund). 

Med universalmodement kan du alltså välja vilken typ av 
kommunikation du vill ha. Med videotexprogrammet (Teleda- 
ta 64) inkopplat kan du tex koppla upp Datavision, Videodata, 
Prestel, Telebild, Postel, Micronet osv, osv. 

I dessa baser kan du finna massor av information. Köpa en 
skjorta, sälja en bil, beställa campingplats, skicka meddelan¬ 
den mm, mm... 

Bo* 1063. 436 00 Asfcun/GöUborq. Tel 031/28 97 90 

- «n f6r*ug i Datatromc^ruppan - 


Några databaser: 

Viewdata AB 08-743 06 65 


Datavision 

Telebild 

Videotex 

telematris 

Wettergrens 


018-901 00 
08-13 58 00 


08-99 44 30 
031-11 21 34 


Kommunikation är en del av vad VIC 64S kan. I 
foldern ”VIC till vardags” får du mer information 
om vad VIC kan göra för dig i vardagslivet. 


Jag vill ha foldern ”VIC till vardags’ 


Sänd In kupongen till handic eiectronlc. Box 1063, 436 00 Aaklm. 










Ledaren 


Nu är sommaren äntligen här med ett långt skönt sommarlov. Eller tillhör du den gruppen som 
aldrig tar chansen att njuta i en hängmatta. Kanske har du sommarjobb eller fast jobb. VIC 
rapport kommer i alla fall att ta ledigt i juli och nästa nummer kommer först i augusti. Men för att 
kompensera er för detta så presenterar vi här ett riktigt tjockt dubbelnummer med massor av 
läsning. 

Detta numret av VIC rapport är speciellt av flera anledningar. För det första vill redaktionen 
hälsa Åke Fredriksson välkommen tillbaka. Han kommer att ansvara för vår nya Comalskola samt 
för allt som har med programspråket Comal att göra. 

Förutom Comalskolan fortsätter vi naturligtvis med de tre andra skolorna dvs Assemblerskolan, 
Nybörjarskolan och Forthskolan. För det andra har vi två reportage från de stora datamässorna 
som har ägt rum. En i Tyskland, Hannovermässan och en i Sverige, Nordiska Mikrodatormässan. 
På dessa mässor fanns alla de nyheter som vi kan vänta oss på marknaden i den närmsta 
framtiden. Utförliga reportage hittar du längre fram. 

Trevlig läsning och trevlig sommar!! 
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Hannover Ce-Bit mässan 

— giganten bland mässor av Bengt Litnäs 

Tänk dej Älvsjömässan! Stoppa in den två gånger i hall 1 i Hannover och 
fyll på med datorer. 

Tänk dej Råsunda fotbollsplan! Lägg till 99 planer och du får det totala 
utställningsområdet. 

Lägg till ytterligare 110 planer och du har parkeringsområdet för 60000 
bilar. 


Till all lycka var endast 5 hallar fyllda med 
datorer och annan elektronik till nytta el¬ 
ler nöje. Alla de andra hallarna var fyllda 
med varor från synålar till lastbilar. Två 
hallar var t ex fyllda med belysningar. Åt¬ 
skilliga tusen lampor var tända och hetta 
motsvarande fullt vad som fordrades för 
en god bastu. 

Mässans stora dragplåster var onekli¬ 
gen elektroniken. I fem hallar med till¬ 
sammans 128000 nr yta ställde ca 1200 
utställare ut sina produkter. 2/3 därav var 
tyska utställare. Detta visar att Västtysk¬ 
land är på snabb frammarsch vad gäller 
elektronik. Bara för några år sedan var 
det ett U-land. År 1983 besöktes denna 
mässa av ca 300000 besökare. 1 år notera¬ 
des efter tre dagar 130000. 

Do-it-yourself 

En utställning i utställningen var ”micro- 
tronic”, där man på 10800 nv visade allt 
vad som fanns i elektroniska pryttlar för 
självbyggare. 1 det nordtyska TV-pro- 
grammet NDR1II går sedan i januari en 
serie, i vilken man bygger en ganska avan¬ 
cerad dator med en Z 80-processor, 
Thomsons nya grafikchip samt med till- 
läggskort för Motorolas 68008. En gan¬ 
ska dålig marknadsföring har gjort att 
idén inte slagit särskilt väl ut. 

Utbudet av självbyggen är stort från 
datortidskrifternas sida. Här kan särskilt 
nämnas c’t — en högkvalitativ tidskrift 
och med en självbyggdator med ett 8086- 
chip samt 128 KB RAM utbyggbart till 
256 KB. Denna dator kommer efterhand 
att byggas ut för att motsvara en hög¬ 
modern apparat för högt ställda krav. 
Priserna för dessa datorer ligger som 
byggsats medd 4000 till 6000 kronor. 

I början var ordet... 

och ordet intog en dominerande ställning 
på mässan. Alltmer börjar företagen för¬ 
stå, att ord egentligen är små, kostsamma I 


ting, vilka man helst ska behandla auto¬ 
matiskt. 

Till detta område hör ju egentligen allt. 
Datorer, skrivare, disketter, bildskärmar, 
diktafoner, telefoner med modem, hög¬ 
talare, läsare (OCR), Software. Här åter¬ 
fanns också de riktigt stora utställarna — 
de som erbjöd kompletta paketlösningar. 
Här fanns Grundig, Philips, Sony, 
Sanyo, Panasonic, Sharp, LM Ericsson, 
Triumpf-Adler m fl. 

Texas visade t ex att man kunde tala 
med sin dator via mikrofon. Man hade 
gjort ett enkelt program, där bildskärmen I 


En vakthund för kopieringsapparater — 
kanske något för våra storföretag. 


Men man måste vara noggrann med utta¬ 
let. Violett uttalas ju med ”v” i Sverige, 
men i Tyskland som ’T\ Jag gjorde just 
det felet och datorn förstod inte vad jag 
menade. Detta är på samma gång en svag¬ 
het och en styrka. Om ca fem år är för¬ 
modligen tekniken så långt kommen, att 
man kan tala med sin dator i stället för att 
hacka. Nu är det emellertid så, att en 
människan röst i stort sett är lika säregen 
som ett fingeravtryck. 

Genom att renodla ett röstspektrum 
kan man göra delar av ett stort datasys- 
I tem röstspecifikt, dvs man kan i ett före¬ 


tag skilja åtkomligheten av känsliga data 
till endast vissa betrodda personer. 



visade 10 färger och genom att säga fär¬ 
gen flyttade sig cursorn till nästa färg. 


Skrivare fanns i Babylonien... 

... men de skiljer sig en aning från dagens 
skrivare till en dator. Ett enormt utbud 
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står till förfogande — det är bara att väl¬ 
ja! Eftersom VIC rapport berättar om 
VIC-20 och VIC-64 ska vi kanske begrän¬ 
sa oss till skrivare som skulle passa för 
dessa — inte minst med tanke på priset. 

Marubeni Corp. i Tokyo visade en skri¬ 
vare med goda egenskaper. Bokstavsmat- 
riserna har en punkttäthet av 9 x 9 och 
hastigheten är 120 tecken/s vid textskriv¬ 
ning samt 5600 punkter/s vid grafik. Två 
skrivriktningar vid text samt en väg vid 
grafik. Svenska särtecken finns inbygg¬ 
da. Maskinen skriver med olika täthet 
och olika storlekar på bokstäverna. Ma¬ 
skinen heter COPAL SC-1000 och priset i 
Västtyskland är DM 1000 = 3000 kro¬ 
nor. Parallellt och seriellt gränssnitt ingår 
som standard. 

Mannesmann-Tally gör en skrivare 
som heter MT-80 och har en 9 x 8 p mat¬ 
ris, gör 80 t/s, grafikmöjlighet, två- 
vägsskrivning. Denna maskin har fått ut¬ 
märkta lovord i tysk fackpress och kostar 
med V-24 gränssnitt ca 3 300 kronor. 

Seikoshas skrivare GP 100 VC är pris¬ 
vänlig och kostar i Västtyskland ca 2100 
kronor. Det är en vettig maskin utan allt¬ 
för många finesser. 

En stjärna bland skrivare är STARS 


delta-10, vilken är en ren önskedröm. 
Med en 9 x 9 matris som standard och 8 
KB buffertminne, med 160 tecken/s, med 
6 olika bokstavsstorlekar, med olika gra¬ 
fiktäthet — 480/960/1920 punkter — är 
det en maskin runt 1 500 DM. 

Mitsubishi visade sin färgskrivare 
M4234, vilken åstadkommer 4-färger 
med ett värmeskrivhuvud. Vid 2-vägs- 
skrivning kan ytterligare tre färger tryc¬ 
kas. Hastigheten är 180 p/s och vid grafik 
skriver den 24 x 1440 p/rad. Skriften är 
angenäm att läsa. 

Vi kanske också skall se litet på en öst¬ 
tysk skrivare vid namn EUROPRINT 
K6311 FT/P för DM 999,—, FT/S för 
DM 1099,— samt en helt ny K 6312 t-P 
för DM 1500,—. Den har testats av väst¬ 
tyska tidningar som i stort ansett den bra, 
men med sedvanliga erinringar om vissa 
tekniska besvärligheter vid byte av färg¬ 
band etc. I grundversion är de alla utrus¬ 
tade med parallellt gränssnitt och mot 
kraftiga tillägg får man ett V-24. Skrivar¬ 
na har en 9 x 7 matris med en täthet av 100 
punkter/tum. Normal-, tät-, stor- och 
kursivskrift kan åstadkommas och skrif¬ 
ten är väl läsbar. 

För att återkomma till gränssnitten, så 


missgynnas alltid Commodore-datorer. 
Trots att VIC-20 ligger som nr 2 och VIC- 
64 som nr 1 på 10-i-topp-listan, så görs 
praktiskt taget inga periferier med V-24 
gränssnitt. Det är alltså ett sätt att låta 
konsumenten (du) betala två gånger. Vi 
skall återkomma till denna fråga på annat 
ställe. 

Skrivmaskin som skrivare? 

Ja, varför inte? Den som sätter värde på 
en skönskrivare och kan undvara grafi¬ 
ken gör inget dåligt val. Dessutom slipper 
man den ofta tråkiga tangentuppsätt¬ 
ningen på datprn. Skrivmaskinen köper 
man med å, Å, ä, Ä, ö, Ö och genom 
program definierar man dessa tecken i 
datorn. 

Helt ny på mässan var Triumph-Adlers 
Gabriele 9009, vilken är ersättare för 
Gabrielle 8008. Måttliga 13 tecken/sek 
gör att en A4-sida tar ca 5 min att skriva. 
Men då är det lika snyggt som om det vore 
gjort manuellt — kanske snyggare. En 
massa finesser är inbyggda, såsom tabu¬ 
leringar, understrykningar, jämn höger- 
eller vänstermarginal, lift-off, 4 radav¬ 
stånd mm, mm. Det bästa kommer sist: i 
september kommer att lågpris gränssnitt — 
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Commodore 116 — ny design och ny cursor- 
styrning. Kommer troligen inte att lanseras i 
Sverige. 


för V-24 och då är det bara att koppla 
ihop din Commodore med Gabriele. Pri¬ 
set på skrivaren är 998,— DM. För Oli¬ 
vetti- och Olympiamaskiner finns det 
hårdvara, vilken man själv kan bygga in 
för att göra dessa kompatibla med 
Commodore. 

Diskettenheter 

På detta område sker en enorm utveck¬ 
ling. Inte nog med att man bygger disket¬ 
ten slim-line, dvs ca 60 mm hög, de blir 
också allt mindre och mindre, men sam¬ 
tidigt lagrar de mer och mer data. Sony 
slog till förra året med sin 3 1/2-tums di¬ 
skett och nu ligger en ny modell med en 
lagringskapacitet av 1 MB framme för 
produktion. 

Som vanligt med ny teknik, så kommer 
en massa olika format på en gång. Seikos- 
ha gör en diskett med 3 1/4-diskar. Även 
3-tum och 4-tum finns. Nu har man emel¬ 
lertid bestämt sig för att Sonys 3 1 /2-tum 
ska bli standard. 

Hemdatorer 

Ett stort utbud visades, men de var inte 
alltid så lätta att hitta bland alla kontors- 
datorer. Till all lycka kom jag in genom 


ingång nordost till hall 1 och ramlade di¬ 
rekt på en tjeckoslovakisk dator. Den he¬ 
ter SMEP—01 och processorn heter 
MHB 8080 A 2 MHz med 65 KB. Den har 
nu inget att göra med Intels 80-serie utan 
är en variant av Z80.1 ROM finns 16 KB. 
Datorn har ASCIl-tangentbord och är 
även avsedd för grafik med 256x256 
punkters upplösnings. När man försöker 
läsa reklambroschyren på engelska, så är 
det nästan omöjligt att fatta vad det är till¬ 
verkaren vill tala om för läsaren. Samtal 
med utställningspersonalen är på grund 
av språksvårigheterna ej heller menings¬ 
fulla. Alltnog, denna dator för oss ca 10 år 
tillbaka i tiden, dvs nästan stenåldern. 

I DDR har man också gjort en hem¬ 
dator, vilken presenterades på Leipzig- 
mässan nyligen. Nu fanns den också i 
Hannover och den liknar mer det man är 
van vid. ROBOTRON 1715 heter den. 
Den har en U 880 processor 2,5 MHz med 
64 KB som standard. För bildskärmen 
står ståtliga 64 x 16 tecken/rad till förfo¬ 
gande, vilken kan utvidgas till 80 x 24. 

Gränssnitten är 1 x seriell för skrivare 
samt 1 x V-24. Konversationsövningar 
kan föras på följande språk: BROS, 
JAMB, PASCAL, BASIC, MABS 1520 
samt även CP/M-drift. 

Två diskettstationer står till förfogande 
på vardera 128 KB. Priset är DM 4500,— 
för dator, ett diskettverk samt monitor. 


Den nya trenden för hemdatorer ligger 
i bärbarheten. Epson och Olivetti har 
gjort små apparater att bära i en portfölj. 
Hitachi kommer med en som heter MB- 
H1 på 64 KB. Den är av den nya MSX- 
typen. Vikt 3,4 kg och måtten 
324x55x229 mm. SORT gör en IS-11 
med 32 KB-RAM och 64 KB-ROM. Ap¬ 
paraten väger 2 kg och har måtten 
300x48x215 mm. Den kan förses med 
en liten skrivare på vänster sida och på hö¬ 
ger sida med en sifferenhet. En mikrokas¬ 
sett är inbyggd. LASER 3000 är en läcker 
nykomling. Centralprocessorn heter 
6502 A och för styrning finns en 8048. 64 
KB RAM expanderbart på kortet till 192 
KB samt 24 KB Basic-ROM medföljer. 
Tillbehör: joysticks, diskett, kassettdäck, 
ljuspenna, färgplotter — allt i en läcker 
benvit färg. 

Äntligen Commodore! 

Det bästa har jag gömt till sist. De efter¬ 
längtade nyheterna — de tre nya muske¬ 
törerna, som inte alls ersäter VIC-20 eller 
V1C-64, utan ger nya valmöjligheter. 

Commodore C 16 

Deta är VICs större broder. Den har 16 
KB RAM, varav 12 KB står till förfogan¬ 
de för programmering. I ROM gömmer 
sig hela 32 KB för styrsystem och Basic- 
tolk. Grafiken är 25 rader med 40 tecken 
eller 320 x 200 punkter. Nytt är att bild¬ 
skärmen kan delas upp och text och gra¬ 
fik användas samtidigt. Ljudet åstad¬ 
kommes av en tongenerator och en brus- 
generator med åtta ljudlägen. 

Commodore 116 

En helt ny design kännetecknar denna da¬ 
tor som innehållsmässigt är helt lik C 16 
med ett undantag — cursorstyrningen är 
ny. 

Commodore 264 

Ser ut som 116 med har 64 KB RAM på 
minnet, av vilka 60,8 KB står till använda¬ 
rens förfogande. 32 KB-ROM för drift- 
och Basicsystemen. Detta ROM kan ut¬ 
vidgas med ytterligare 32 KB för viss Soft¬ 
ware. Grafiken — utan sprites — är lika 
C16 men ljudet har förbättrats genom att 
en ljudgenerator lagts till. Här finns också 
en maskinspråksmonitor inbyggd, lik¬ 
som ett fritt valt användarprogram, t ex 
ordbehandling eller liknande. 

Gemensamt för alla är den nya proces¬ 
sorn 7501 med 0,89—1,76 MHz — ej 
kompatibel med 6510 i C-64. I den tyska 
broschyren står att tangentbordet har 67 
tangenter samt åtta funktionstangenter. 

Den nya Basicen har 75 kommandon, 
vilket är en avsevärd förbättring. Anslut¬ 
ningarna är USER PORT och seriellt 
gränssnitt (= C-64), en modulingång, två 
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Commodore 264 — utvidgad BASIC, extra 
ljudgenerator, inbyggd maskinspråksmonitor 
— detta är bara några av de finesser man 
kan finna på 264:an. Lanseras i Sverige till¬ 
sammans med J64:an i slutet av året. 


joystickingångar samt en ingåt för Data- 
setten (ej 64). Dessutom ingångar för TV 
och monitor, audio in- och ut, samt 
strömförsörjning. 

Till de nya datorerna kommer också 
nya tillbehör. Den nya Datasetten heter 
1531 och den nya disketten, som är ca 6 
ggr snabbare heter SFS 481. Denna skall 
modifieras för att även arbeta med C-64. 

Commodore 364??? 

På mässan fanns inte modell 364. Men 
likväl skriver den tyska pressen om denna 
modell. För det första är den större, 
420 x 65 x 240 mm mot 264: ans 
336 x 65 x 197 mm. Därtill ska den har 48 
KB ROM mot 32 samt ha en inbyggd tal¬ 
modul med 250 ord som standard. Tan¬ 
gentbordet är större och har 86 tangenter 
mot 264: ans 67. 

Till nyheterna hör också den nya skri¬ 
varen VC 1526. Denna har den nyheten 
att den även kan drivas som en VC 1525. 
Emellertid måste man då göra ingrepp i 
hårdvaran och att ledningen från PIN 16 
till U4D i stället lägges om till jord. Com¬ 
modore själva påstår att VC 1526 ej har 


grafikmöjligheter. Däremot har använda¬ 
re en annan mening därom och påstår att 
grafik är möjlig. 

Ytterligare en skrivare MPS 801 är en 
något ändrad version. Sekundäradresser¬ 
na 0 och 7 har bibehållit sin betydelse, de 
övriga ej. 

Den nya färgmonitorn från Commo¬ 
dore var ganska läcker och hade en upp¬ 
lösning som får betraktas som hög. Priset 
i Västtyskland ligger idag på DM 765,—, 
vilket får betraktas som mycket billigt. 

En nyhet bland ”innefolket” är att C- 
64 skall bli utrustad för bildskärmstext. 
Detta sannolikt för att ta upp konkurren¬ 
sen med Blaupunkt, Saba, Philips och 
Grundig, vilka alla erbjuder paketlös¬ 
ningar inkl dator till låga priser. 

I Västtyskland ligger bland hemdato¬ 
rerna som nr 1 C-64, som nr 2 VIC-20. Ca 
375000 av dessa datorer lär vara sålda. 
Bland kontorsdatorema ligger Commo¬ 
dore 80-serie l:a. 

För Commodores hemdatorer kom¬ 
mer det ny mjukvara. Sålunda ligger för 
de nya datorerna ett ordbehandlingspro¬ 
gram klart, ett tabellkalkylerings-, ett 
grafik- samt ett förvaltningsprogram. 

Vidare kommer ett program som heter 
Magic-Desk och är en motsvarighet till 
Koala teckningsbord. För 64:an skall 
komma en serie läroprogram med i hu¬ 
vudsak matte som ämne. Vidare kommer 


^Nyheter till 

\ 

Commodore 64 

De bästa spelen till 

din 64:a från USA 

och England 


Produkt 

Pris 

Yantzee 

119:— 

Flight Simulator 

149:— 

Play Golf 

99:— 

Assembler 

229:— 

Maggie 

129:— 

Who-Dun-It 

129:— 

California Gold Rush 

119:— 

Banshee Castle 

129:— 

Scramblers 

99:— 

Goodnes Gracious 

119:— 

Character Designer 

119:— 

3DMaze 

119:— 

TacToe3D 

119:— 

Othello 

129:— 

Compiler 64 

595:— 

Patience 

129:— 

Pool 

109:— 

Wizard’s Dominion 

119:— 

Screen-bits 

295:— 

Ludo 

119:— 

Yahtcee 

119:— 

Pontoon 

119:— 

Haunted Castle 

109:— 

Sprite Plan 

119:— 

Killer Piller 

119:— 

Bandit 

119:— 

Crazy Caveman 

119:- 

Pixie Pete 

119:— 

Blue Moon 

119:— 

Project Volcano 

119:— 

Spelen finns att köpa över 

databutiker i hela Sverige 

Återförsäljare välkomnas 

Gratis katalog (ange dator) 


m.-rm -r*rm 

Box 503, 63106 Eskilstuna 

Tel: 016/136960 

\ ___ 
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C-I6 — storebror til! VIC — i vilken bild- t 
skärmen kan delas upp och text och grafik 
kan användas samtidigt. Kommer troligen 
inte att lanseras i Sverige. 

Autoprint — med denna enhet inkopplad i 
bilen kan man ständigt näs av skrivna med¬ 
delanden. i 




Gabriele 9009frän Triumph-Adler — skriver 
långsamt men mycket snyggt — ett alternativ 
för dig som kan undvara grafiken. 


för barn mellan 4—6 år 40 program på en 
diskett för att lära sig läsa och skriva. Nya 
spel är Soccer International, Viduzzles, 
Jack Attack och Solar Fox samt en elek¬ 
tronisk kokbok. 

Men det skall också komma hårdvara 
för att expandera t ex 64:an. Cardboard 5 
är en utvidgning av modulingången med 
fem (5) ingångar. Ljuspenna, gränssnitt 
mm kommer också, liksom nya disksta¬ 
tioner från MSD. Från inkwell Systems 
kommer ett grafikprogram Flexidraw 
med ljuspenna. Ett tilläggsprogram Pen- 
pal möjliggör överföring av bilder via mo¬ 
del till andra 64:or. 

Kanske går det mot ljusare tider för 
Commodore-hackers. 

Australien 

är kanske inte det land man först tänker 
på när det gäller elektronik. Landet som 
koloniserades av från England deportera¬ 
de förbrytare. Landet där idag anor från 
dessa förbrytara är lika med adelskap — 
nästan. 

På mässan fanns ett par ovanliga till- 
lämpningar av elektronik. 
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Kop din VIC hos 




center 

specialbutiken tör VIC-datorn 



En vakthund för en kopieringsapparat 
t ex. Man bygger in en liter dosa i kopiera- 



Exempel på en 3 1/4-tums diskett frän Seiko. 
Den nya standarden på sli/n-line disketter har 
dock satts till 3 I/2-turn. 


ren och man kan kopiera endast om man 
”hackar” in ett godkänt nummer. Gan¬ 
ska listigt och vore säkerligen något för 
det svenska statsverket eller varför inte 
för Journalistförbundet? 

En annan pryl är Autolink och Auto- 
print. Den senare har man i bilen på resor 
och man kan då nås av skrivna meddelan¬ 
den upp till 255 tecken med 40 
tecken/rad. Överföringen är diskret, dvs 
bara föraren kan ta emot det och han be¬ 
höver inte ens vara i bilen när meddelan¬ 
det kommer. 

Autolinken har en komplett tangent¬ 
uppsättning samt en LCD-tavla på vilken 
4x40 tecken samtidigt kan visas. Totalt 
kan 1500 tecken överföras. Denna kom¬ 
municerar båda vägarna. Genom kodord 
och kodering kan läsning omöjliggöras 
för utomstående. 

Det är väl sannolik nödvändigheten 
som tvingat fram dessa båda nyheter, ge¬ 
nom de enorma avstånden i en delvis myc¬ 
ket ogästvänlig terräng. 

Vet du var det värsta med Hannover- 
mässan är? Du lär känna din egen ofull¬ 
komlighet! Det finns så mycket att se och 
lära, men din tid och din ork räcker ej till. 

Men ännu värra är, att nästa år så slår 
dom till igen med en ny och ännu större 
mässa. Träna maraton, så går det bättre. 


”VITAR HANDOM DIG 
ÄVEN EFTER KÖPET” 


NYTTOPROGRAM FÖR VIC-64 


Fakturering 64 . 975:— 

Aktieplanering 64 . 975:— 

Dataregister 64 . 695:— 


För information ring butiken Högalidsgatan 13 
(J) Homstull. 

Tel 08-68 12 75 eller 08-69 20 24. 


V_ S 
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Här intill presenterar vi en 
av Commodores nyheter, 
som presenterades på den 
stora datormässan i 
Hannover. Denna artikel 
har vi fått från vår 
reporter i Tyskland och 
all information är hämtad 
därifrån. Vi har ännu inte 
fått reda på vad datorn 
kommer att heta i 
Sverige. Vi har försökt ta 
reda på detta genom 
Handic Electronik men 
det verkar som om man 
inte har bestämt sig för 
något namn ännu. Vi har 
därför bestämt oss för att 
kalla den VIC 264. Det 
ska i sammanhanget 
påpekas att VIC rapport 
förbehåller sig alla 
uppgifter som står i 
artikeln. Vi vet inte om 
dessa kommer att 
överensstämma till 100 % 
med de uppgifter som 
kommer i samband med 
lanseringen i Sverige. 
Troligtvis kommer VIC 
264 att släppas på den 
svenska marknaden i 
slutet av 1984. 



VIC 264 


av Bengt Litnäs 


Låt den överraska dig! 


Efter allt skäll VIC 64 fått för sin magra BASIC har nu 
Commodore låtit kusinen VIC 264 få ett riktigt trevligt 
språkelement. Nu kan du äntligen utnyttja datorns inne- 
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Därtill kommer den nya möjligheten att 
få en mjukvara inbyggd redan vid köpet. 
Följande program kan väljas 

1) Magic desk en simulering av ett skriv¬ 
bord och ska kunna skriva brev, räk¬ 
na, skiftväxlingsförvaring, tidgivning 
mm. Ett program för hemmet. 

2) SUPERSCRIPT ett halvavancerat 
textsystem. 

3) COMMODORE 3-PLUS-l är en 
kombination av text och adressbear¬ 
betning, tabellkalkylation samt grafik 
med fönsterteknik. 

4) LOGO ett lättlärt programerings- 
språk. 

5) PILOT ytterligare ett programme¬ 
ringsspråk. 

6) EASYCALC 264 ett program för ta- 
bellkalkylering. 

7) COM 264 

8) FINANCIAL ADVISOR ett ekono¬ 
miprogram. 

Då ett av dessa program ingår i köpet 
måste alltså köparen på förhand bestäm¬ 
ma sig för hur han vill använda datorn. 
Över funktionstangenterna kan dessa 
program lätt kopplas in eller ur. Övriga 
program ovan kan köpas som moduler 
och, i därför särskilt avsedd ingång på 
baksidan, göras direkt tillgängliga. 

Det bör obserberas att det inbyggda 
programmet ligger i ROM-minne och vill 
man byta, så måste datorn öppnas och då 
har man förverkat garantin. 

264:ans BASIC 

Som redan sagts så har de nya datorerna 
fått en förbättrad BASIC. Grafik-, ljud- 
och diskettkommandon med hjälpfunk¬ 
tioner kan nu styras över den inbyggda 
BASICen. 

Alla kommandon, vilka kan direktad- 
resseras kan även utföras över funktions- 
tangentema och över dessa programme- — 


boende, stora egenskaper helt utan att behöva ta din tillflykt 
till toolkits, assembler, Simon’s etc. Med VIC 264 har 
Commodore flyttat fram sina positioner utan att därför på 
något sätt överflygla andra konkurrenter med en redan bra 
BASIC. Men lägger vi till de inbyggda maskinspråket, 
assembler och disassembler, så rycker VIC 264 fram som en 
mycket kraftfull dator, vilken även är lätt att umgås med. 
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ras. De fungerar på samma sätt som 
KEY-kommandot hos Simon’s BASIC. 

Med DISPLAY kan kommandona på¬ 
kallas. En särskild egenhet har HELP 
funktionen. Om ditt program avbrytes av 
ett felmeddelande, så trycker du bara på 
HELP-tangenten (t ex f8) och då visas den 
felaktiga raden reverserat. Däremot med¬ 
delas ej exakt var felet finns på denna rad 
som t.ex. fallet är med EXBASIC 
LEVEL II. Denna hjälp får man normalt 
även med hjälp av BASIC:en, varför om¬ 
vägen över HELP är mindre lätt att för¬ 
stå. 

Grafik 

Bildskärmen kan få tre olika modem: 

1) den högupplösande grafiken med 
200 x 320 punkter 

2) flerfärgsmodem med 160 x 200 punk¬ 
ter samt 

3) textmodem med 40 x 25 rader. 

Alla tre framställninssätten kan ut¬ 
föras samtidigt och det måste betraktas 
som ett extra plus. Styrningen sker över 
GRAPHIC kommandon och löses på föl¬ 
jande sätt: 

1) Modem 0 = textframställning och är 
standard vid inkopplingen av 264: an. 

2) Modem 1 = högupplösande grafik 

3) Modem 2 = högupplösande grafik 
plus text i de understa fem raderna. 

4) Modem 3 = flerfärgsgrafik samt 

5) Modem 4 = flerfärgsgrafik med text i 
den understa fem raderna. 

1 ställning 4 och 5 kan alltså en högupp¬ 
lösande (HIRES) bildskärm kombineras 
med fem rader text. Därigenom kan man 
överst på skärmen visa grafik och där¬ 
under t ex genom LIST låta en listning 
passera eller en tabell. 

Genom att välja ett av grafikmodem 
1—4 reserveras en 10 KB minnesarea i 
RAM. 

V1C 264 kan alltså framställa 128 fär¬ 
ger eller rättare 16 färger och varje färg i 
åtta toner eller nyanser. Dessa färger kan 
direktadresseras antingen med CON- 
TROL-tangenten eller genom enkla 
BASIC kommandon i programmet. 

Färg- och grafikmodem 

Region, färg, färgstyrka, Region (0 till 4) 
0 = färgstyrka 

1 = teckenfärg 

2 = flerfärg 1 

3 = flerfärg 2 

4 = ram färg 
Färg (1 till 16) 

Färgstyrka (0 = mörk till 7 = ljus) 

Grafik 

modus, radera modus (0 till 4) 

0 = text 

1 = HIRES 

2 = HIRES + text (delad bildskärm) 


3 = flerfärg 1 

4 = flerfärg 2 (delad bildskärm) 
radera (0 eller 1) 

0 = ej radering 
1 = radera 

VIC 264 har delvis ganska kraftiga gra¬ 
fikkommandon. Det är inte längre tal om 
spritar — de existerar ej hos VIC 264. 
Man kan dock välja ut bestämda områ¬ 
den hos bildskärmen eller förflytta dem, 
utan att behöva inskränka sig till VIC 
64: ans begränsade storlek av 24x21 
punkter. 

Däremot är oklart, om man genom 
kollisionsfrågor kan åstadkomma något 
liknande spritar för för- och bakgrunds¬ 
färger samt alla de möjligheter man ge¬ 
nom dessa når för att konstruera spel och 
liknande. Ur BASICordboken eller hand¬ 
boken kan detta inte utläsas. 

För att återkomma till handboken, så 
har den vanligtvis varit föremål för kritik, 
men för 264:an har det blivit en riktigt bra 
handbok. Alla BASICkommandon är ut¬ 
förligt förklarade till och med finns tal¬ 
rika exempel på användningen. 


Grafikkommandon 

CHAR = fogar in text direkt i 

HIRES-grafik 

BOX = tecknar rektanglar 

CIRCLE = tecknar cirklar, ellipser 

PAINT = fyller en bestämd area 

med en bestämd färg 

SCALE = Bits-mönstrets skalför¬ 

ändring vid HIRES eller 
flerfärgsgrafik. 

DRAW = tecknar punkter och lin¬ 

jer 

LOCATE = faststäler utgångspunk¬ 

ten för teckenkommandon 

SSHAPE = lagrar en förutbestämd 

del av HIRES grafik på 
kasset eller diskett 

GSHAPE = Den från SSHAPE av¬ 

sedda delen kan man med 
GSHAPE återföras till 
valfritt ställe på bild¬ 
skärmen. GSHAPE tillåter 
flera modem: 


* = såsom data är lagrade 

1 = revers framställning 

2 = OR-länkad med 
omgivningen 

3 = AND-länkad med 
omgivningen 

4 = XOR-länkad med 
omgivningen 

RCLR (N) = Tilldelar en bestämd 

bildskärmsarea N (0—4) 
en bestämd färg (areor: se 
under COLOR) 

RDOT(N) = Anger grafikcursorns 

aktuella ställning. 

RGR(N) = Man bibehåller det gra¬ 


fikmodem i vilket man be¬ 
finner sig 

RLUN(N) Tilldelar färgarean N anvi¬ 
sad färgstycke 


Ljud 

264:ans ljudmöjligheter är mycket be¬ 
gränsade. Endast två kommandon står 
till förfogande: 

VOL (0 till 7) = reglerar ljud¬ 

styrkan hos fram¬ 
bringad ton 

SOUND x, y, z = frambringar en 
ton alt. ett brusljud 
x (I till 3) 

1 = hög stämma 
från mycket högt till 
medellåg 

2 = låg stämma från 
medelhög till mycket 
låg 

3 = brusljud (t. ex. 
åska) 

y (0 till 123) = not¬ 
värden, (0 = låg 
ton, 1023 = hög ton) 
z (0 till 65535) = 
tonlängden 

I förhållande till VIC 64 är således ljud- 
möjligheterna starkt begränsade. Nu är 
det emellertid ej heller frågan om att er¬ 
sätta VIC 64 utan att bredda sortimentet. 


Hjälp (vid programmering) 

Dessa funktioner är däremot förstklassi¬ 
ga. För redigering står fyra funktioner till 
förfogande: 


AUTO (n, rader) = AUTO 20 ger ef¬ 

ter varje RETURN 
ett nytt radnr, som 
är 20 högre än före¬ 
gående rad. 

RE- = ett mycket be- 

NUMBER x, y, z kvämt kommando 
x = ny radbörjan 

y = radavstånd 

z = från vilken av be¬ 

fintliga rader 
Kommandot RE- 
NUMBER 1000, 10, 
100 numrerar ett 
basicprogram från 
befintlig rad nr 100 
med en höjning av 
radnr med 10, varvid 
den första nya raden 
börjar med nr 1000. 
Alla språngadresser 
(GOTO, GOSUB, 
ON x 

GOTO/GOSU B 
etc) omfattas av 
kommandot även i 
de fall, där språng- 
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DELETE 

(område) 

TRON, 

TREFF 


kommandona ligger 
före z. 

= raderar program¬ 
rader i angivet 
område 

= kopplar in eller ut 
TRACE. Den vid 
varje tillfälle bear¬ 
betade raden visas 
på skärmen. 


Diskettkommandon 

Dessa motsvarar helt motsvarande kom¬ 
mandon för CBM-8000-serien. 
DLOAD/DSAVE = laddning och lag¬ 
ring av program 


DIRECTORY 


COLLECT 


= som ordet säger 
så visas här adress¬ 
katalogen. Ett urval 
är möjligt t. ex. alla 
program på A. 

= motsvarar VIC 
20/64s VALIDATE 


COPY 


RENAME 

SCRATCH 


= kopierar ett pro¬ 
gram från en diskett 
till en annan vid 
dubbla disketter. 
Kopierar ett pro¬ 
gram inom en di¬ 
skett under ett annat 
namn vid enkel¬ 
diskett. 

= ändrar ett regis¬ 
ternamn. 

= Raderar ett regis¬ 
ter på en diskett. 


De bekanta diskettkommandona fran 
VIC 64 är också användbara. Vid felaktig 
status hos diskettverket får man genom 
variabeln DS och DS$ bild på skärmen vi¬ 
sande felets art samt felmeddelandet. 
Men även basicen understödjer felet i 
programmen. Det finns en möjlighet att 
skapa fällor (eng trapping). Härför Finns 


två kommandon: 
TRAP 


RESUME 


= fångar upp ett fel. 
Genom fel variabler¬ 
na ER, ERR$ och 
EL visas de på skär¬ 
men. 

ER = tar tag i det se¬ 
naste upptäckta fe¬ 
let; 

ERRS = innehåller 
motsvarande fel¬ 
meddelande i basic. 
EL = anger den rad 
i vilket felet befinner 
sig 

= med detta kom¬ 
mando fortsättes 
programmet utan 
att felet får till följd 
att programmet 
störtar. Här ges 


möjlighet att låta 
programmet fortsät¬ 
ta från den felaktiga 
raden genom att 
denna anges. Med 
RESUME NEXT 
fortsättes program¬ 
met direkt efter den 
felaktiga raden. 

Dessa båda kommandon är nyttiga och 
besparar mycken ”hacking” i onödan. 
Programmen blir nu störtsäkra och även 
om man använder STOP-tangenten, så 
blir det ingen BREAK utan programmet 
fortsätter sedan STOP släppts. Felet 
FILE NOT FOUND omfattas inte av ru¬ 
tinen. 


Strukturerad programmering 

Detta är programmeringens högre skola 
och där kommer de finesser som gör att 
programmen löper som smort genom 
minnescellerna. Aven här finns det kraft¬ 
fulla kommandon som tidigare saknats i 


VIC 64. 
DOUNTIL 
DO WHILE 
EXIT 

LOOP UNTIL 
LOOP WHILE 
IF THEN ELSE 


Med dessa komman¬ 
don är ett fullt struktu¬ 
rerat programförlopp 
möjligt. Slutvillkoret 
kan endera stå i sling¬ 
ans början (DO 
UNTIL/WHILE) eller 
i slutet (LOOP 
UNTIL/WHILE). 
Genom EXIT kan 
slingan lämnas. 

Den nya BASIC.en 3,5 erbjuder natur¬ 
ligtvis utöver vad som här meddelas även 
den basic som finns i VIC 20/64. 


Maskinspråksmonitor TEDMON 

Denna är inbyggd och förutom översätt¬ 
ning till maskinkod så kan man också as¬ 
semblera och disassemblera. TEDMON 
och BASIC kan löpa bredvid och uteslu¬ 
ter ej varandra. Nu kan man enkelt göra 
separata assemblerprogram eller låta dem 
löpa som underprogram I BASIC. Pårop 
av TEDMON sker från BASIC med 
kommandot MONITOR. Här är funk¬ 
tionerna i maskinspråksmonitorn: 

A = Assemble omvandlar ett as¬ 

semblerprogram till 
maskinkod. 

C = Compare jämför två sektioner 
i minnet och medde¬ 
lar olikheterna. 

D = DISSAMBLE omvandlar maskin¬ 
kod till assembler- 
kommandon. 

F = Fill belägger minnet 

med en specifiCerad 
byte 

G = Go startar ett assemb¬ 

lerprogram från en 
bestämd adress. 


H = Hunt 

avsöker minnet efter 
alla förekommande 
bytes av ett visst 
slag. 

L = Load 

laddar ett program 
från kassett eller di¬ 
skett 

M = 

Memory anger inne¬ 
hållet i minnesceller 

R = Register 

meddelar värdena i 
6502-register-värde. 

S = Save 

lagra på band eller 
diskett 

T = Transfer 

överför en minnes- 
del till en annan 

X = Exit 

lämnar TEDMON 


Ytterligare kommandon 

Dessa kommandon tillhör ej en bestämd 
kategori utan är allmänt användbara. 


PRINT USING 

= Definierar for¬ 
matet hos en text- 
sräng eller en tal¬ 
följd vid utmatning. 
Framställning av ta¬ 
beller blir med detta 
kommando ett rent 
nöje. 

PUDEF 

= Ändrar parame¬ 
tern hos PRINT 
USING- 
kommandot. 

INSTR. 

= Tillåter samman- 
flätning av strängar 

DEC = 

Omvandlar ett hex- 
tal (00 till FF) till de¬ 
cimaltal 

HEXS 

= Omvandlar ett 
decimaltal ( 0 till 
65536) till ett hextal. 

JOY 

= Läge 1 eller 2 för 
Joysticks. 

GET KEY 

= Liknar GET- 
kommandot men 
avvaktar att tangent 
nedtryckes. 


Jämför man VIC 64 med VIC 264 så 
kan man kanske säga, att den har många 
plussidor och att på minussidan kan upp¬ 
tas den sämre grafiken och de sämre ljud¬ 
möjligheterna. 

A andra sidan är BASIC:en avsevärt 
bättre. Med de inbyggda programmen 
samt maskinspråksmonitorn, så har 
programmerraren vunnit avsevärt. För 
att inte nämna den nya cursorstyrningen. 
Olala! 

Kanske kommer VIC 264 bli det rätta 
mellantinget mellan hemdatorn och kon- 
torsddatorn för små företag eller för 
hantverkare eller för t ex advokater, läka¬ 
re och liknande vilka idag har så mycket 
arbete med blanketter, att det knappast 
blir tid över för arbete. 
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Sollentunamässan 
25 / 4 — 28/4 1984 


Det har varit microdatormässa i Sollentuna. För er som inte 
var där tänkte vi här återge lite av vad som fanns på mässan. 

av Elisabeth Höglund 





Det har varit microdatormässa i 
Sollentuna 25/4—28/4 1984. Som 
de flesta nog redan vet så fanns det 
en åldersgräns på mässan. Man 
måste ha fyllt 16 år. Att man hade 
satt den gränsen var för att mässan 
i första hand vände sig till företaga¬ 
re och inte till dataintresserade i all¬ 
mänhet. Detta var också en av 
orsakerna varför VIC 20 inte fanns 
representerad, eftersom den i för¬ 
sta hand är en hemdator. Spelpro¬ 
grammen lyste med sin frånvaro, 
spel skulle helst inte förekomma. 
Detta var en liten förklaring till er 
som inte kunde besöka mässan, 
eller till er som saknade VIC 20 i 
montern. 

Olika datorföretag 

Det fanns otroligt många företag repre¬ 
senterade, kända som okända. Man kan 
mycket väl förstå de som kände sig lite 
konfunderade efter en stund, för visst var 
det svårt ätt smälta alla intryck eller kom¬ 
ma ihåg alla företag och datorer. Själv¬ 
klart så fanns de största och mest kända 
företagen representerade, som t ex IBM, 
Datatronic, LM Ericsson, RANK 
XEROX mm. 

Även vi från VIC rapport var represen¬ 
terade. En rolig upplevelse. Vi delade ut 
gamla nummer av VIC rapport tillsam¬ 
mans med ett mässerbjudande. Dessa 
gick åt som smör i solsken. Redan efter 
första dagen var vi tvungna att ta dit fler 
tidningar. Kul tycker vi på redaktionen. 

Det var ca 9000 personer som besökte 
mässan varje dag, så nog var det folk all¬ 
tid. Men fredagen slog ändå rekordet. 
Över 10000 människor försökte klämma 
sig in bland montrarna. 

Nyheter 

Mässan bestod egentligen inte av några 
större nyheter, men de som fick extra 
mycket uppmärksamhet var pekskärmar 
och talande datorer. Dessa kanske man 
egentligen inte har någon större praktisk 


nytta av. I dagsläget är detta i alla fall be¬ 
gränsat. Men vem vet, utvecklingen går ju 
snabbt inom databranschen. 

Att få en dator att tala är inte speciellt 
svårt. Man kan få en VIC 64 att tala ge¬ 
nom den inbyggda ljudgeneratom. Men 
man kan inte tala till den. TEXAS visade 
sin dator som talar och som man kan tala 
till. Problemet med denna är bara dialek¬ 
ten. Det kan vara svårt för en skåning eller 
norrlänning att tala med datorn, eftersom 
den är känslig för dialektala avvikelser. 

Bland programvaror som väckte upp¬ 
märksamhet var Datatronics nya ord- och 
textbehandlingsprogram, Word Result. 
Frågan är om detta kommer att bli en lika 
stor världssuccé som Calc Result. 

Det man främst kanske märkte var att 
det går ett IBM-syndrom genom bran¬ 
schen. De flesta leverantörer är angelägna 
om att presentera IBM-kompatibla dato¬ 
rer. Tyvärr är det många av de maskiner 
som påstås vara IBM-kompatibla som i 
verkligheten ej uppfyller kraven för kom¬ 
patibilitet. 

En av IBM:s nya datorer var den sk 
Peanut. Där behöver man inte någon 
sladdanslutning mellan datorn och tan¬ 
gentbordet. 

En motsedd nyhet var APPLEs 
MCrlntoch. Ett mellanting mellan en 


hemdator och en mer avancerad dator. 
Man funderar på om dessa bägge datorer 
har någon meningsfull marknadsuppgift 
att fylla. 

Det man kanske förvånades något över 
var att Luxor inte hade någon egen mon¬ 
ter, utan endast företräddes av återförsäl¬ 
jare. Är det kanske så att NOKIA redan 
har slukat Luxor? 

Ett nytt område som visades i ett flertal 
montrar var kommunikation med gene¬ 
rella databaser. Som de flesta säkert re¬ 
dan vet kan man använda VIC 64 till tele- 
data, och även den bärbara VIP 64:an. 

Datatronic hade en tävling där man 
kunde vinna en VIP 64 och en PET 700. 

De lyckliga vinnarna var Mats Norr¬ 
bom, som fick med sig en VIP 64 hem, 
och ett ganska nystartat företag som heter 
RosFgens patentkonsult fick en PET 
700. Ett stort grattis till er. 

Intrycken från en mässa blir ändå gan¬ 
ska diffusa. Ni som var där vet hur myc¬ 
ket information man ska smälta. Men 
visst är det roligt att få se alla dessa otroli¬ 
ga apparater och dess resurser. • 
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Userporten i VIC 20 


I denna artikel skall jag ta upp lite grann om Userporten, 
hur den fungerar och hur den skall användas. Jag skall i viss 
mån också ta upp lite om de A/D-omvandlare som finns 
inbyggda i VIC-en. 

av Thomas Wernersson 


Men först Userporten vilken är den port 
som sitter längst till höger sett bakifrån, 
(se bild 1) Själva kontakten består utav 24 
stycken pinnar. Det kan vara nog så svårt 
att experimentera med U-porten om man 
inte har någon slags kontakt eller liknan¬ 
de ditkopplad. En lämplig kontakt är 
ESM 12 DREH som finns att köpa hos 
ELFA för omkring 30 kronor. 

Men vad kan man använda U-porten 
till? Ja, på den frågan finns väl en aldrig 
sinande ström av svar. Styrningar av ro¬ 
botar, lampor, m m samt mätningar av 
alla de slag. För att kunna ansluta yttre 
enheter till userporten behövs något slags 
interface. Det kan man, med lite färdighet 
i lödning och elekronik, bygga själv till en 
förhållandevis låg summa. Om man inte 
har dessa färdigheter så kan man givetvis 
köpa färdiga interface (anpassningsenhe- 
ter). Handic har bl a ett reläkort för user¬ 
porten. 

För att kunna använda de åtta pinnar¬ 
na C-L som ut- eller ingångar så användes 
två minnespositioner som styrregister. 
Först så anger man vilka av de åtta pin¬ 
narna som skall agera ut- respektive in¬ 
gångar. Detta meddelar man datorn ge¬ 
nom att i styreregistret 37138 ”sätta” de 
bitar som skall agera utportar, och ”släc¬ 
ka” de bitar som skall agera inportar. 

Efter att man deklarerat vilka portar 
som skall kunna skicka ut signalerna så 
använder man sedan styrregistret 37136 
för att skicka ut signalerna resepektive 
känna av pinnarna. Genom att ”sätta/ 
bitar i 37136, efter att ha deklarerat dem 
som utportar i 37138, så skickar man ut 
signaler på pinnarna. Dessa signaler är 
för svaga för att kunna driva reläer direkt. 
I stället får man konstruera en drivkrets 
som i sin tur, efter att ha fått signaler ur 
VIC-en, kan driva reläer. 

Vid avläsning av pinnarna så får man 
släcka de bitar i 37138 som motsvarar de 
bitar som skall läsas av. Efter att ha släckt 
de bitarna så sätts automatiskt samma bi¬ 
tar i 37136. När dessa pinnar kopplas med 
jord så släcks respektive bitar i 37136. 

Detta kan verka krångligt, så för att 
åskådliggöra det hela så demonstrerar jag 
här ett exempel tillsammans med illustra¬ 
tioner. 

Låt oss säga att vi skall ha ut signaler på 


Bild 1. 

Userportens placering på baksidan av 
VIC-en, samt dess utgångar. 



Bild 2. Placering av A /D-omvandlare i spelporten. 



skall agera utportar till lysdioderna samt 
offdioder. Rad nummer 20—30 känner 
av pinnarna och skiftar innehållet fyra 
steg till vänster. När en switch är ned¬ 
tryckt så släcks den biten. I vårt program 
så vill vi att den lysdioden skall lysa. Vi 


måste därför på rad nummer 40 göra en 
”exklusiv-eller-operation”. Dvs att satta 
bitar släcks och släckta bitar tänds. Sedan 
hoppar vi tillbaka till rad 10. 

Om vi nu skulle ta och sluta switchen på 
bit nummer 0 skall registren se ut som i fi- 
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gur C, innan programmet hunnit tända 
lysdioden. Lägg märke till att bit 0 släcks 
när switchen sluts. 

fyra pinnar och samtidigt känna av fyra 
andra pinnar. Det första vi gör är att star¬ 
ta upp VIC-en. De två kontrollregisterna 
ser då ut som i figur A, d v s datorn är in¬ 
ställd att känna av alla åtta pinnarna. 
Men ingen pinne är jordansluten. 

Efter detta kopplar vi upp fyra lysdio¬ 
der och lika många switchar enligt figur 
B. Om vi sedan sätter bitarna4—7 i 37138 
så har vi allting uppkopplat och klart. 

Nu fattas bara ett program som känner 
av de fyra pinnarna och tänder respektive 
lysdiod. Detta program skulle kunna se ut 
så här: 

10 Poke 37138, 240:Poke 37136,15 
20 A = PEEK(37136) 

30 A = A* 16 

40 Poke 37136, 240-A:Poke 37136,0: 
goto 20 

Rad nummer 10 sätter bitarna 4—7 vil¬ 
ket medför att det blir dessa bitar som 


A/D-omvandlare 

Nackdelen vi avkänningsoperationer 
med userporten är att man bara kan av¬ 
läsa digitalt dvs man läser bara l:or eller 
0:or på pinnarna. Vid digital avkänning 
kan man inte känna av analoga signaler 
som t ex ljudvågor. Vad som då behövs är 
en omvandlare som omvandlar analoga 
signaler till digitala 1 :or eller 0:or. 

En sådan A/D-omvandlare finns lyck¬ 
ligtvis inbyggd i VIC-en, men inte i user¬ 
porten. 1 ställe så sitter den monterad med 
två ingångar i spelporten. Dessa ingångar 
heter Pot Y och Pot X och använder pin¬ 
narna 5 respektive 9. (se bild 2) Med de två 
minnesadressern 36872 och 36873 kan 
man sedan känna av ”potarna”. 

Genom att placera motstånd mellan 
någon av potarna och jord så generar da¬ 
torn ett digitalt värde mellan 0—255, be¬ 
roende på hur stort motståndet är. Detta 
värde lagras sedan i någon av minnesposi- 
tionerna. Ju högre värde, desto större 
motstånd. 

Ja, då borde väl jag ha förklarat klart 
om userporten och A/D-omvandlaren 
för denna gången. Lycka till med fram¬ 
tida experiment. Nedan följer en tabell på 
de minnespositioner som vi har använt. • 


Stift hos 
via nr 1 

Anslut¬ 
ning hos 
user port 

Funktion 

Adress i minnet 


1 

Jord 



2 

+ 5V 


RES 

3 

RESET 


PA2 

4 

JOY 0 

37137 bit 2 

PA3 

5 

JOY 1 

37137 bit 3 

PA4 

6 

JOY 2 

37137 bit 4 

PA5 

7 

Ljuspenna 

37137 bit 5 

PA6 

8 

Kassettswitch 

37137 bit 6 


9 

Serie ATN in 

37137 bit 7 


10 

11 

AC 9V 



12 

Jord 



A 

Jord 


CB1 

B 

CB1 

37148 bit 4 

PB0 

C 

PB0 

37136 bit 0 

PB1 

D 

PB1 

37136 bit 1 

PB2 

E 

PB2 

37136 bit 2 

PB3 

F 

PB3 

37136 bit 3 

PB4 

H 

PB4 

37136 bit 4 

PB5 

J 

PB5 

37136 bit 5 

PB6 

K 

PB6 

37136 bit 6 

PB7 

L 

PB7 

37136 bit 7 

CB2 

M 

CB2 

37148 bit 5—7 


N 

Jord 



Bild 3. 


VIKTIGA 

MINNESPOSITIONER 

3687 2 

POT Y. 

368 7 3 

POT X. 

37 136 

Yttre Styrregistret. 

37 138 

Huvud Styrregistret. 


Fig.A 


7654321# 



0 

0 

0 

0 

0 

0 

0 

0 

37138 




1 

1 

1 

1 

1 

1 

1 

1 

37136 
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Fig. B 



7 

6 

5 

4 

3 

2 

1 

0 


1 

1 

1 

1 

0 

0 

0 

0 

37138 










0 

0 

0 

1 

1 

1 

1 

0 

37136 


SWITCHEN 

SLUTEN 



Joysticks användning 
i spel eller seriösa 
program 

Vi har fått följande tips från 
Fredrik Strand. Alla hans 
tips är avsedda för VIC 64. 

Följande behövs för att datorn ska vänta 
tills användaren gör ett speciellt ”drag” 
på Joysticken. 

Väntar tills användaren ”drar”: 

Uppåt... Wait AD,1,1 
Nedåt... Wait AD,2,2 
Vänster... Wait AD,4,4 
Höger... Wait AD,8,8 
Trycker Fire... Wait AD, 16,16 

Istället för AD gäller följande värden: 
Joystick i port nr 1: 145 
Joystick i port nr 2: 56320 

Användbara POKE-koder 

POKE; 

53272.21.. . Stora bokstäver 

53272.23.. . Små bokstäver 

650.255.. . Repetition på alla tangenter 
650,0... Stänger repetition 

53265,11 Stänger skärmen 
53265,27 Kopplar på skärmen 


808,225 Run Stop/RESTORE Bort 
808,237 Run Stop/RESTORE På 
788,52 Run Stop Bort 
788,49 Run Stop På 
646,F Textfärg X(0—15) 

768,145 Stänger Error meddelanden 
768,141 Suddar BASIC-program, ställer 
skärmen i utgångsläge med bibehållen 
skärm färg 

204,0 Sätter på cursor i bl a GET-satser 

204,1 Stänger cursor 

774,128 Listskydd 

774,27 Återställer 

775,0 Listskydd 

818,90 Save-skydd 

Användarmanualen till VIC 64 

Jag har upptäckt vissa brister i användar¬ 
manualen till VIC 64. På sid 150—151 
står det att det är en komplett lista på alla 
felmeddelanden, men det stämmer inte. 

Om man skriver POKE 818,170 (RE- 
TURN) och därefter SAVE”Prg namn” 
(RETURN) så får man felmeddelandet 
”Missing File Name Error”. 

Om man skriver POKE 818,50 (RE¬ 
TURN) och därefter SAVE”Prg namn” 
(RETURN) så får man felmeddelandet 
”Illegal Device Number Error”. 

OLD-program 

Angående ert tidigare OLD-program till 


VIC 64. OLD-programmet fungerade in¬ 
te på min 64:a. Här följer ett fungerande 
OLD-program till VIC 64. Det hämtar 
tillbaka program som blivit suddade av 
NEW eller om man gjort RESET. 

10 AD = 49152:for i = 0to21 
20 READ D : POKEAD+ 1,D:NEXT 
30 DATA 169,8,141,2,8,32,51,165,24 
40 DATA165.34,105,2,133,45,165,35 
50 DATA105,0,133,46,% 

60 PR1NT”FÖR ATT STARTA, AN¬ 
VÄND SYS” AD”:CLR” 
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Gör ett ”dåligt minne” bättre ^ 


Lottoprogrammet i VIC rapport nr 2-84 var anpassat för 
VIC 64. Många läsare har hört av sig för att detta även skall 
kunna användas till VIC 20. Därför har Birger Gran 
omarbetatprogrammet för VIC 20. 


Efter lottoprogrammet i VIC rapport nr 
2-84 har jag fått brev med önskemål om 
hjälp att anpassa programmet till VIC 20. 
Att anpassa textutskrifterna till VIC 20:s 
radlängd torde väl alla klara av (använd 
förkortningar eller dela upp texten till två 
rader på skärmen). Däremot kan DIM- 
kommandot (på rad 10) behöva en utlägg¬ 
ning. 

Då 64:an har ett mycket ”gott minne’, 
38911 bytes (tecken) tillgängligt iäs/skriv- 
minne (RAM)är detta inget problem, och 
medför gärna att man slösar med utrym¬ 
met. Men VIC 20:s 3583 tillgängliga bytes 
motiverar lite eftertanke. 

1. Använd heltal i stället flyttal! 

För flyttalsmatriser, t ex A(I, J) eller 
R(R), använder VIC:en 5 bytes för matri- 



Böcker till VIC-20/64 

C:a pris exkl. 
porto&postförskott 


Commodore 64 Computing 115:— 
Commodore 64 Adventures 115:— 

Commodore 64 Machine 

Code Master 125:— 

Commodore 64 Games Book 115:— 
Commodore 64 Exposed 135:— 
The Working Commodore 115:— 
Commodore 64 

Graphics&Sound 145:— 

Getting acquainted with 

your VIC20 116:— 

VIC innovative computing 115:— 
ZAPIPOW1BOOM! 116:— 

50 outstanding games VIC20 116:— 
The VIC20 Games Book 115:— 
Get more from the VIC20 115:— 
VIC20 Exposed 135:— 

Beställ katalog! 


Studieförlaget 

Bom 386 . 751 06 Uppsala 1, Telefon 018-15 53 90 


sens namn + 2 bytes för varje dimension i 
matrisen + 5 bytes för varje element av 
flyttalstyp. Om man i stället för flyttal an¬ 
vänder heltal, tex A%(I, J), så åtgår bara 
2 bytes per element. Om matrisen alltså 
dimensioneras A%(400,12) åtgår ”bara” 
10432 bytes, jämfört med 26071 bytes för 
matrisen A(400, 12) 

2. Dimensionera minsta möjliga 
matris! 

Nu spelar man väl sällan 400 system med 
12 nummer per spelfält (det blir ju tämli¬ 
gen dyrt...). Vanligare är det väl med 
8—9 nummersystem. Tyvärr är det så att 
matrisen tar sitt fulla minnesutrymme så 
snart den dimensionerats, vare sig den är 
fylld med data eller ej. Därför bör matri¬ 
sen göras så liten som möjligt. Om man 
vet att inget system är större än 9 
nummer/spelfält, bör andra parametern i 
DIM-kommandot vara 8. (Man utnyttjar 
index 0—8 = 9 steg.) Ex.: DIM 
A%( 150,8) utnyttjar 2723 bytes och bor¬ 
de därför gå att pressa in tillsammans med 
programmet på en VIC 20. En viktig re¬ 
servation! 


För innevarande budgetår 

(1/7—83—30/6—84) förväntar sig Com¬ 
modore nya rekordsiffror även om vissa 
konkurrenter försöker göra gällande att 
företaget inte går så bra. Under 4:e kvar¬ 
talet (1/10—31/12 1983) sålde Commo¬ 
dore över hela världen 1. 300000 datorer, 
varav i Västtyskland 123000 st. Under 
första budgethalvåret steg den totala 
omsättningen med 129% till 640,7 milj 
dollar. Enbart i den västtyska delen steg 
omsättningen med 309 % och då var ut- 
landsförsäljningen hos fabriken i Baun- 
schweig ej inräknad. Julförsäljningen vil¬ 
ken redan den var rekordartad även här 
hemma verkar komma i skuggan av den 


3. Undvik dubbelbokföring! 

Att mata in spelfälten som datasatser 
innebär naturligtvis att även datasatsema 
tar minnesutrymme (i programmet). En 
form av dubbel bokföring! Och detta är 
ju oekonomiskt med VIC 20:s begränsa¬ 
de kapacitet. För att slippa detta bör spel¬ 
fälten i stället lagras i en datafil på kassett¬ 
bandet (efter programmet). Men detta 
skapar genast behovet av en inmatnings- 
rutin för spelfälten (inkl rättningsrutin, 
ingen matar väl in utan fel!), vidare en ru¬ 
tin för lagring resp hämtning av datafil — 
förutom de avsnitt ur det ursprungliga 
programmet som kollar antalet rätt. 

4. Programmera minnessnålt! 

Att använda låga radnummer, skriva fle¬ 
ra kommandon på varje rad, undvika 
mellanslag mellan kommandon, alltid 
använda subrutiner när samma avsnitt 
ska utföras i olika avsnitt av programmet 
samt att undvika rem-satser, är andra 
knep att minska programmets minnes- 
krav. 

Nedan finner ni en utskrift av ett lotto- 
program till VIC 20, med hänsyn taget till 
ovanstående besparingsrutiner. • 


orderingång man nu har. Redan har man 
svårigheter att leverera och värre kommer 
det att bli. En bidragande orsak är den 
mycket positiva kritik de nya hemdato¬ 
rerna fått. Kanske är det bäst att beställa 
redan nu för att få en ny dator till jul. 

BL. 


Söker du efter en 
gammal kompis? 
Prova på att söka genom 
VIC rappports databas 
Tel 08-19 06 16 


Affärerna blommar för 
Commodore 
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Interaktiv programmering 

Den här artikeln handlar om en enkel metod för att öka 
samspel mellan dator och användare. Det är samtidigt ett 
sätt att få en VIC 20 med bandspelare att kännas som en be¬ 
tydligt större och kraftfullare utrustning. av Frenne Söderberg 


*=180 FRI HT "3" 

510 PR= 1650 :REM REKORD 
520 IF P<=PR THEN 570 

530 PRI NT" GRATULERAR..PRI NT P.;"=NVTT REKORD" 
540 PR I NTPR I NT ” BEKRAEFTR RAD 510 MED" 

550 PR I HT :: CURSOR OCH RETURN" : PRI HT 
560 PR I NT !1 510 PR="P■ REM REKORD" 

570 END 


Metoden är användbar på VIC 20, VIC 
64 och andra datorer med samma sorts 
screen-editor för BASIC-programmet. 
Genom interaktiv programmering kan 
man använda BASIC programmet som 
lagringsutrymme för aktuella data. Man 
slipper krångla med särskilda datafiler på 
kassetten och det känns lättare att använ¬ 
da datorn till något nyttigt. 

Screen Editom 

Screen-editorn är det inbyggda program 
som gör det enkelt att skriva eller ändra 
BASIC program på TV-skärmen. Du 
kommer så småningom att få läsa om hur 
man kan åka snålskjuts på screen- 
editorn, men först en repetition av hur 
den normalt används! 

TV-skärmen fungerar som ditt fönster 
in mot datorn. Man kan också se den som 
din och datorns gemensamma anslagstav¬ 
la för meddelanden och order. Det mesta 
du gör vid tangentbordet synsju först på 
skärmen. Först när du trycker på return 
blir det datorns tur av tecknen som står i 
närheten av cursorn på skärmen. Du vet 
hur det fungerar vid programmering: 
från ett radnummer frammåt till max 4 
rader på skärmen gäller radnumret och 
dator lägger texten i minnet som en pro¬ 
gramrad. 

Om man glömmer RETURN och bara 
börjar skriva på en ny programrad så är 
det upplagt för trubbel. Troligtvis blir det 
mer än fyra rader från det första radnum¬ 
ret och då klipper datorn själv av. En del 
av programrad nummer 2 blir hängande 
på rad nummer 1 och resten går förlorat. 
Glöm därför inte att göra RETURN 
ordentligt efter varje sats när du nyut- 
vecklar program. Var också extra ordent¬ 
lig när du ändrat någonting i en program- 


Är du VIC-ägare? 

I så fall är du väl prenumerant 
på VIC rapport! 


text som du fått upp på skärmen med 
LIST-kommandot. Du måste stega med 
cursorn till en ofarlig position i underkan¬ 
ten på skärmen innan du gör något nytt 
kommando, t ex ett nytt LIST. Annars 
skadar du den programraden där cursorn 
just befann sig och det är inte roligt. Om 
du är osäker på vad raden innehöll kan du 
bli tvungen att gå tillbaka och ladda in 
kassettfilen igen, om du har en sådan. 

Den här mekanismen som jag har gått 
igenom är viktig att förstå för fortsätt¬ 
ningen. Lägg på minnet att ett radnum¬ 
mer plus text plus RETURN inom 4 
skärmrader blir en programrad i datorns 
minne. Som sådan följer den med de an¬ 
dra programraderna ut på kassettbandet 
när man gör SA VE, även om den inte 
skulle ha någon direkt arbetsfunktion i 
programmet. 

Att mötas på skärmen 

Du har just fått en genomgång av de van¬ 
ligaste sätten att utnyttja skärmen med 
LIST kommandon, cursormanöver och 
RETURN. Nu skall vi försöka få datorn 
att komma oss närmre till mötes. Den 
skall hjälpa oss att redigera programmen 
med dagsaktuella data. 

Antag som exempel att du har gjort ett 
spelprogram som du blir gradvis skickli¬ 
gare i. Du vill gärna kunna anteckna ditt 
resultat till nästa gång och larmas om du 
slår ett gammalt rekord. Vi kan tänka oss 
att du har variabeln P för poängresul¬ 
tatet. Gör då så att du avslutar program¬ 
met med några nya rader ungefär så här: 
(vi antar radnr 500- är lediga) 


Vad händer nu? Jo programmet skriver 
ut: 

(antag P = 2000 och att det är mer än det 
gamla rekordet PR) 



När du ser texten tar du bara och flyttar 
cursorn till raden 510 och gör RETURN. 
Titta sedan med LIST 510 så ser du att an¬ 
teckningen snyggt och prydligt åkt på 
plats. 

Om du någon gång längre fram preste¬ 
rar mer än 2000 poäng så kommer det en 
ny gratulation till det nya rekordet. Den 
här rekordbokföringen fungerar över all 
framtid om du så vill. Se bara till att du 
alltid SA VE: ar programmet till en kassett 
innan du stänger av datorn samt att du 
LOAD:ar det från samma kassett igen 
nästa gång du vill spela. 

Med lite fantasi hittar man lätt andra 
tillämpningar. Jag kanske återkommer 
till sådana i ett senare nummer av VIC 
rapport och i så fall kommenterar jag gär¬ 
na ideer från läsekretsen. • 
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Evighetskalendem VIC 64 

Skulle du i förskott eller i efterskott vilja ta reda på vilka 
veckodagar vissa händelser kommer att inträffa eller har in¬ 
träffat? 

I så fall skall du prova evighetskalendem. 

I sig självt innehåller inte programmet några märkvärdig¬ 
heter, så försök! Det kan både vara intressant och roligt. 



Gustav II Adolf dog en dimmig novem¬ 
berdag 1632. Närmare bestämt den 6:e. 
Det vet väl alla? Men har ni någon gång 
funderat över vilken veckodag det var? 
Det har jag gjort och kommit fram till att 
det var samma veckodag som den dag då 
jag fyller 100 år. Död eller levande. Den 
dagen är en lördag. Antalet dagar mellan 
Gustavs död och min 100:e födelsedag är 
för övrigt 149646. So what?! 

Tja. .a.. Försök vara lite positiva nu är 
ni snälla. Själv tycker jag att det är mycket 
fascinerande att i förskott, eller efter¬ 
skott, kunna ta reda på veckodagar då 
vissa historiska händelser inträffade. 
Som t ex min 100-årsdag eller Gustavs 
död. 

Programmet bygger på... 

den Gregorianska kalendern, som lär ha 
införts i Sverige år 1583 och alltjämt är 
gällande. Där tar man hänsyn till skillna¬ 
den mellan kalenderåret och det s k tropi¬ 
ska året (årstidsåret). För denna tidsskill¬ 
nad korrigerar man vart fjärde år, under 
de år som är jämt delbara med 4. Undan¬ 
tagen är hela århundraden som inte är 
jämt delbara med 400, sk sekularår. År 
1900, 1800 och 1700 var alltså sekularår, 
men inte år 1600. Korrigeringen utförs 
under februari månad, som då får 29 
dagar i stället för 28. 

Starta programmet 

När programmet startas, dyker det upp 
en skylt på skärmen: 

1 Veckodag? 

2 Dagar mellan två datum? 

Vill man då ha reda på vilken veckodag 
23/8 1970 var, trycker man på ” 1”, varpå 
skylten ”veckodag” uppenbarar sig och 
därunder: 

Aart al? (1970) 

Maanad? (8) 

Dag? (23) 

Datorn svarar: 

Den 23/8 1970 aer en soendag 


Den där dimmiga da’n i november 1632, var 
det en söndag? Eller kanske en måndag? 


Känner man sen en längtan efter att ta 
reda på hur många dagar det är sedan 
dess, trycker man på ”2”. En ny skylt dy¬ 
ker då upp och på den står det: 

”antal dagar mellan två datum” 

Under denna följer så: 

Aartal 1? (1970) 

Maanad 1? (8) 

Dag 1? (23) 

Aartal 2? (1984) 

Maanad 2? (3) 

Dag 2? (4) 

Antalet dagar aer: 4942 

Observera att ovanstående parenteser 
endast markerar vad användaren matar 
in och skall inte matas in i datorn (det låter 
sig för övrigt inte göras). 


Mina erfarenheter av programmet 

I sig själv innehåller inte programmet 
några märkvärdigheter, med undantag av 
de formler som datorn använder för be¬ 
räkningen. Det är sörjt för att inga dum¬ 
heter skall behandlas, såsom att man för¬ 
söker mata in t ex den 33 augusti 1523 
edyl. Försök så får ni se vad som händer. 

BN 


Kan ”BN” höra av sig till VIC rapport. 
Du har en ersättning som väntar på dig. 

Red. 


Vill du sälja? 

Ring VIC rappports databas 
Tel 08-19 06 16 
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READY. 


1 F'RINTCHR$< 147) 

5 rem .********************************** 

6 REM * SKYLT OCH INNEHAALSFOERKLARING * 

? rem ********************************** 


10 
20 
30 
40 
50 

55 

56 

57 
60 
70 
80 
30 

100 
433 
500 
510 
520 
530 
333 
1000 
100 i 
1010 
1020 
1030 
1040 
1050 
1 060 
1070 
1075 
1080 
1030 
1100 
1110 
1120 
1130 
1140 

1147 

1148 
1143 
1150 
1160 
1170 
1180 
1130 
1200 
1210 
1220 
1230 


.'■J A.V 


SVS65520 

SVS65520 


GOSUB500 

P0KE781,7 ; P0KE782,5 :SYS65520 
P0KE781,8 : P0KE782 , 5 : SVS65520 
P0KE781 , 9 : P0KE782,5 : SVS65520 
P0KE781 , 10 : PQKE782,5 
REM ************** 

REM * ALTERNATIV * 

REM ************** 

PQKE781,12 : P0KE782,5 
P0KE781,13 •' P0KE782,5 
GETAf:IF Af="1"THENOOSUB1000 
IF Af="2"THENOOSUB1500 
QQTO80 
END 

P0KE781,2 : P0KE782,11 
P0KE781,3 : P0KE782,11 
FQKE781,4 :R0KE782,11 
RETURN 

rem **************** 

REM #** VECKODAG *** 

rem **************** 

PRINTCHRf<147) : GOSUB 
P0KE781,10:P0KE782,1 
P0KE781,12 : P0KE782,1 
PÖKE781,13:P0KE782,1 
P0KE781,14 : P0KE782,1 


PRI NT" 3*****************************" 
PRI NT" 3tf ALMANACKAN TAECKER ALLA AAR*" 
PRI NT" 5t*FR. 0. M AAR 1583. *" 
PRINT" 3*****************************" 


PRINT"a 
PRINT"a 


VECKODAG? 
DAGAR MELLAN 


TVAA DATUM' 


SVS65520 

SYS65520 


PRINT"3 
PRINT" SE\ 
PRINT -a 


T GHET SALMANACKA" 


00 

:SVS65520 
:SVS65520 
:SVS65520 
520 


OTOb. 


F'R I NT " Itf* VECKODAG ** 
INPUT"AARTAL ",V 
INPUT"MAANAD ",M 
INPUT"DAG ";D 


,‘Ow» I 

IFM>120RM<1THEN1040 
IF(INT<V /100)*100=V 
IF M =2ANDD =29AND<V 


>ANDM =2ANDD =29AND<Y 
7401 NT <V /4 ) ) THEN 1050 


40001 NT < V /4O0 ) ) THEN 1050 


IF(M=l1 OR M=4 OR M=6 OR M=8)AND<D>30)THEN1050 
IF D>31THEN1050 
GOS! IB2000 

IFM<3THENF=A+D+B+C-E■GOTO1140 
F=A+D+B-G+H-I 

VD*(F+(INT <-F/7)*7))+6 =IFVD=0THENVD=7 

REM******************************** 

REM**** VECKODAGSTABELL *********** 
REM******************************** 


IFVD=0THENPOKE781,20 
IFVD=1THENP0KE781,20 
IFVD-2THENP0KE781,20 
IFVD=3THENP0KE781,20 
IFVD=4THENP0KE781,20 
IFVD=5THENP0KE781,20 
IFVD-6THENP0KE781,20 
I FVB=7THEHF'0KE781,20 
RETURM 


P0KE782,2 
P0KE782,2 
PÖKE782,2 
P0KE782,2 
P0KE782,2 
P0KE782,2 
P0KE782,2 
PQKE782,2 


SVS65520 

SVS65520 

f-i 

OT OOJJtö 

SVS65520 

SYS65520 

SVS65520 

SVS65520 

SVS65520 


'" M " 
•» ^ •• 


PRINT"DEN"D"/ 

PR I NT" DEN" D". 

PR I NT" DEN" D"< 

PRINT"DEN"D"/"M" 
PRINT"DEN"D"/"M" 
PRINT"DEN"D"/"M" 
PRINT"DEN"D"/"M" 
PRINT"DEN"D"/"M" 


t"'AER 
7 "AER 
'AER 
'AER 
r'AER 
T'"AER 
t"’AER 
r"'AER 


EN 

EN 

EN 

EN 

EN 

EN 

EN 

EN 


SGENDAG' 

MAANDRG 1 

TISDAG" 

ONSDAG" 

TORSDAG' 

FREDAG" 

LOERDAG' 

SOENDAG' 
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1499 REM ************************** 

1500 REM *** DAGAR MELLAN DATUM #** 

1501 rem ************************** 

1510 PRINTCHR*<147 >: GOSUB500 

1520 P0KE781 .• 10 PQKE782,2 : SVS6552G : PRIHT" Äf* ANTAL DAGAR. MELLAN TVAA DATUM **" 
1 530 P0KE781,12:P0KE782 , 1 : SVS65528:INPUT"RARTAL 1" ; V1 
1540 PQKE781,13 P0KE782 , 1 : SVS65528: INPUT"MAANAD 1" , M1 
1550 P0KE781,14:PQKE782,1 SVS65520:INPUT"DAG 1 " } D1 

1560 IFV1 -C1583THEN1 530 
1 570 I FM 1 > 1 20RM1< 1THEN 1 540 

1575 IF < I NT < V1 / 100 m 00=V 1 > ANDM 1 =2ANDB 1 =29RND < V174000I NT < V17400> ) THEN 1550 


1580 IF Ml =2ANBB 1 =28ANB<V17401NT<V174>>THEN 1550 
1590 IF<Mi*11ORM1=4ORM1=60RM1=8> RNBD1 >30THEN 1550 
1600 IF Bl>31THEN1550 

1630 P0KE781,16 : P0KE782,1 :SVS65520=INPUT"AARTAL 2"; V2 
1648 P0KE781,17:P0KE782,1 :SVS65528:INPUT"MAANRB 2",M2 
1650 P0KE781,18=P0KE782,1 : SVS65520 INPUT"BAG 2 "jD2 

1660 IFV2<1583THEN1630 
1670 IFM2>120RM2C1THEN1649 

1675 IF<INT<V27180>*100=V2>ANDM2=2ANDD2=29AND<V27400OINT<V2/ 
1680 IF M2=2ANBD2=23ANB<V27401NT<V274> )THEN 1650 
1699 IF < M2= 110RM2=40RM2=60RM2=8 > ANBD23-30THEN1650 

1709 IF B2>31THEN1650 

1710 V=V1:M=M1:D=B1:GG3UB2008 

1715 IFM1-C3THENF1=A+B+B+C-E:GOTO1738 


488>)THEN1658 


17201 F1 =R+D+B-G+H-1 
1738 V=V2:M=M2 B=D2 GOSUB2000 
1735 IFM2C3THENF2-A+D+E+C-E:GOTO1758 
1748 F2-A+D+B-G+H-I 
1750 F=ABS<F1-F2> 

1768 P0KE781,28:P0KE782,1:SVS65528:PRINT"ANTALET DAGAR AER:"F 

1778 GETAT IFA$="1"THENPRINTCHRT <147) : GOTO1090 

1788 IFA$="2THENPRINTCHR*<147) : GOTO 1589 

1798 IFAf="2"THENPRINTCHRT<147) : GOTO1500 

1808 GOTO1770 

1999 END 

2008 A=365#V:B=31%< M-1> =C=INT< < V-1>74 > 

2910 E=INT< 374*<INT << < V-1> 7100) +1)>> =G=INT <.4*M+2.3 > 

2028 H=INT <V74>:I = INT < 374*<INT < V71OO> +1>) 

2830 RETURN 


REABV. 
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—-********* 

100 R £ * !**iIrtE6BER« * 

1 10 REM t»CD 

1£0 R£,V ' * V1C20 C64 * 

130 REt<1 

140 REfA * fbH 84-0 4 * 

REt : ************ 

1B0 *E* ** 

170 

180 RE r '' 

190 R£r !l n o60 

£00 60 t0 ' , .cslES 

810 r£ * # sU BRU^ iH * n o*H)/2 !WNSl 

o?0 REM +p\slUl^ 14B ■ 

r\ REM cjslUK V4B .-vl^NE^^ 

S@^r^S»5®ars- - 

S90 RETOBN 

sr. «»: Är 5 

5 SJ : s~V5- 

340 REM * £ = i 

350 rEH * anS FUNRTlON 

360 rem T „ sr -REDJE eRB **x-.e° sUB 24 

x -" x * 

380 f B FNW 00*l f 

f 0 0 PR^" S ^ 

410 R £ ^ pimusfomrt. 

«« f " *, «"« 

430 RE^’ =1 

440 RE^ * _ foN 

450 R£ * ^iNOSFUN^ 1 
,ic;0 PR1M T s lNO<> g £40 

^ ° E rÄ"^ 4 

480 ^' 0 :^0R=“MF 
490 PR1^ T 5 

RE* dY - rad& +unK J t ion 

ji P qr* u 

-trecjea 

1481 T 3 . 

UBIT 5 

SVR»R . + jon 
5 inU^^R% 0 £ £ 7988 
UPllT 3 00013458 

u*i' r 5 ,’ 0 0000 839 o 

1481 T 9 l ' 1>000 000 5£ 

148 lT 1? . 00 0000 52 

S V8R= 1,0 

R£8D y 
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Nedan publiceras två artiklar som visar hur du 
kan utnyttja din VIC för att lösa avancerade ma¬ 
tematiska problem. 

Räkna med VIC! 

Många problem löses genom beräkning av en eller flera inte¬ 
graler. Numerisk beräkning av en integral gör du snabbt och 
enkelt med din hemdator. Går du på gymnasiet eller hög¬ 
skola kan du nu kontrollera om ett analytiskt beräknat svar 
är rätt eller ej. Den här presenterade integrations-algoritmen 
är iterativ och avbryter sig när tillräckligt god noggrannhet 
har erhållits. 


Gör så här. Mata in programmet nedan. 
Definiera din egen funktion, integra- 
tionsgränser och önskad noggrannhet. 


Iterationer 

Det finns två viktiga begrepp inom mate¬ 
matiken: analytisk och numerisk mate¬ 
matik. Den analytiska delen behandlar 
exakt matematik: Ta till exempel ekvatio¬ 
nen xu2—x = x*(x—1) ==> xl =0, 
x2= 1 (”ii” betyder ”upphöjt till”). 

I den numeriska delen löser man inte 
ekvationerna. Om ekvationerna kan lösas 
exakt utan allför stort besvär, ska man 
naturligtvis hellre göra det. Men om ekva¬ 
tionen är olöslig, så måste man ta till and¬ 
ra metoder. För att åskådliggöra detta 
kan vi ta ekvationen xii5 — 3*x = 17. 
Denna ekvation är inte olöslig, men är 
väldigt jobbig att lösa exakt. Ett sätt att 
lösa denna ekvation numeriskt är att prö¬ 
va sig fram med olika värden på x tills 
man får fram ett värde som stämmer till¬ 
räckligt bra. Exempel: x = 0 = = > 0u5 
— 3*0 =0, för litet; x = 2 = = > 2u5 — 
3*2 = 26, för stort osv... 

Detta är ganska jobbigt och tidsödan¬ 
de, så det vore bättre om man kunde for¬ 


Sen anropas subrutinen för beräkning av 
integralen och svaret erhålles. Följande 
beteckningar används: 


mulera en algoritm för prövandet och se¬ 
dan låta en dator ta hand om jobbet. Det 
finns flera välprövade algoritmer, varav 
jag tänker ta upp de tre vanligaste. 

Det som är gemensamt för de tre meto¬ 
derna är att man först skriver om ekvatio¬ 
nen så man får 0 på ena sidan likhetsteck¬ 
net. 1 vårt fall: xii5— 3*x = 17 = =>xii5 
— 3*x — 17 = 0. Vi ska alltså lösa fix) = 
xu5 — 3*x — 17. 

Den enklaste metoden kallas intervall- 
halveringsmetoden och går i stort sett ut 
på metodiskt prövande. 

Intevallhalveringsmetoden 

Man börjar med att välja (pröva) ut två 
gränser som ligger på varsin sida om 
nollstället. Här till exempel 0 och 2. Man 
tittar på funktionsvärdet mittemellan 
dessa två gränser.: fil) = lii5 — 3*1 — 17 
= —19 <0. Både funktionsvärdet för för 
vänstra gränsen och för mittgränsen är 
negativa. Det betyder att nollstället måste 
ligga mellan mittgränsen och högra grän- 


FNW(W)= funktionen att integrera 
WA,WB = undre och övre integrations- 
gränser 

WE = antalet korrekta siffror i svaret 
WF = integralens värde (svaret) 

Som framgår av exemplet nedan erhål¬ 
les exakt svar för polynom med gradtalet 
mindre än fyra. Sinusintegralen kräver 17 
st funktionsberäkningar och tar cirka två 
sekunder i beräkningstid. Observera den 
goda noggrannheten. Långsammare 
konvergens erhålles till exempel för funk¬ 
tioner med oändlig derivata i någon 
punkt. Beräkna till exempel integralen av 
SQ R(x) mellan 0 och 1. • 


av Toni Roth 


sen. Detta ser man lättare om man ritar en 
figur: 



Vi ser att om funktionsvärdet för väns¬ 
tergränsen och mittgränsen ligger på sam¬ 
ma sida om 0, så ligger nollstället mellan 
mittgränsen och högergränsen. Men om 
fiv.g) och fim.g) har samma tecken, så 
blir f(v.g)*f(m.g) >0(v.g= vänstergrän¬ 
sen, m.g= mittgränsen...) Dvs: om pro¬ 
dukten X) så ligger nollstället mellan m.g 
och h.g, annars mellan v.g och m.g. 

Nu har vi två nya gränser, 1 och 2. Vi 
kan nu göra om samma sak en gång till 

och en gång till.Mittgränsen kommer 

att anta värdena 1,1.5,1.75,1.875,1.8125 

.Med andra ord: Vi kommer närmare 

och närmare nollstället, vi itererar. 

När ska man då sluta att iterera? Man kan 
sluta när vänstergränsen ligger tillräckligt 
nära högergränsen. Ett bättre sätt är att 
sluta när fim.g) är tillräckligt nära 0. För 
ett litet fel i x leder ofta till ett större fel i 
fix). Om vi kallar vänstergränsen för V, 
högergränsen gör H och mittgränsen för —► 


Matematikfunktioner på VIC 

Följande artikel beskriver hur man kan utnyttja sin VIC till 
att lösa svårare ekvationer. Artikeln är i första hand avsedd 
för dig med grundläggande kunskaper i matematikens värld. 
Men men kanske den även kan hjälpa dig med mindre djupa 
kunskaper att på ett roligare och enklare sätt klara av din 
matteläxa. 


25 





















rapP° rt 


M, så kan vi skriva ett litet program som 
hittar lösningen till f(x) = 0: 

10 V = 0 : H = 2 : 

DEFFNF(X) = Xu5—3*X—17 
20 M = (H + V)/2 

30 IF FNF(V)*FNF(M)X) THEN V = M 
40 IF FNF(V)*FNF(M)<0 THEN H = M 
50 IF FNF(M)>1E—6 THEN GOTO 20: 
REM Sluta när f(M) nära 0 
60 PRINT ”Lösning: x = ”;M 
70 END 

Detta program kommer naturligtvis 
komma fram till samma resultat varje 
gång, men ändrar vi i rad 10, så kan vi lösa 
andra ekvationer. 

Det kan krävas rätt så många iterationer 
innan intervallhalveringsmetoden ger re¬ 
sultat. Det finns andra metoder, vilka 
som regel är snabbare. En av dessa är se- 
kantmetoden. 

Sekantmetoden 

Precis som i förra metoden väljer man två 
gränser V och L. Men istället för att räkna 
ut M som (V + H)/2, så tar man M = H 
- f(H)*(H—L)/(f(H)—f(L)). 

Vad är nu detta?! Om vi ritar en figur är 
det lättare att förklara. 



Förutsättningen för att den här meto¬ 
den ska vara snabbare är att f(x) går nå- 
gerlunda rakt från V till H. I så fall kom¬ 
mer den räta linjen mellan punkterna 
(V,f(V)) och (H,f(H)) att skära x-axeln 
nära nollstället. Om vi utgår från H, så 
kommer f(H) och lutningen på den räta 
linjen tala om hur man räknar ut M: 
lutningen = (f(H)-f(V))/(H-L) (f(V) är 
negativ) men 

lutningen = f(H)/(H-M) gäller också 
= => 


Newton-Raphsons metod 

Man väljer ett startvärde xO, vilket som 
helst nästan. Sedan beräknar man ett 
bättre värde med formeln 


xl = xO — 


JML 


r(xO) 

Där f(xO) är derivatan av f(x) i punkten 



Denna metod är oftast avsevärt mycket 
snabbare än båda föregående, men till 
skillnad från dessa, kan denna spåra ur, 
hamna i en oändlig slinga. 


Vi har en punkt xO. Fför att få ett bättre 
värde drar vi tangenten genom punkten 
(xO,f(xO)). Tangenten har lutningen 
f’(xO). Om f(x) inte svänger för mycket 
kommer tangenten att skära x-axeln nära 
nollstället. Denna punkt kallar vi xl. Då 
gäller: 

lutningen = F(xO) 
lutningen = f(xO)/(xO-xl) 

Om vi startar i xO, så kommer derivatan 
leda oss till xl. Därifrån leder derivatan 
oss till x2, men x2 = xO. Vi har inte kom¬ 
mit närmare nollstället utan kan snurra 



Raphsons metod är för det mesta den bäs¬ 
ta metoden. För fullständighetens skull 
tar jag med ett program som löser ekva¬ 
tionen xii5—3*x—17 = 0 enligt den sista 
metoden: 

10 X=2 

20 DEFFNF(X) = Xu5—3*X—17 
30 DEFFNFD(X) = 5*Xii4—3 
40 X = X—FNF(X)/FNFD(X) 

50 IF FNF(X)>1E—6 THEN GOTO 40 
60 PRINT ”Lösning: x = ”;X 
70 END 

Som en jämförelse mellan de olika me¬ 
toderna kan jag tala om att vid testkör- 
ning krävdes det 25 iterationer för inte- 
vallhalveringsmetoden innan den kom 
fram till svaret (1.86555868), 10 för se¬ 
kantmetoden samt 4 för Newton- 
Raphsons metod. Dessa värden varierar 
dock mycket om man tar andra startvär¬ 
den. 

Iterationer kommer till användning inom 
alla möjliga områden. Ta till exempel de 
som sysslar men konstruktionsberäknin- 
gar på broar och dylikt. De stöter på mer 
eller mindre olösliga problem ganska 
ofta, och då spelar iterationsmetoden en 
ovärderlig roll. Jag hoppas att du som läst 
ända hit inte tycker att det var alltför 
obegripligt, och att du fått ut något som 
du eventuellt kan använda. Om inte annat 
har du fått lite övning i matte, och det kan 
alltid vara användbart. • 


f(H)—f(V) _ f(H) 
H—L H—M 


= = >H—M = f(H)* 


H—L 
f(H)—f(V) 


= = >M = H—f(H)* 


H—L 
f(H)—f(V) 


Sedan kontrollerar man f(V)*f(M) och 
byter gränser precis som i intervallhalve¬ 
ringsmetoden. 

Det finns en metod som är ännu bättre 
än de båda andra, nämligen Newton- 
Raphsons metod. Denna kräver dock lite 
mer förarbete. 


runt på samma sätt hur länge som helst. 
Man kan dessutom hamna i en punkt x 
där F(x) = 0, och dela med 0 går ju inte. 
Ytterligare ett problem är att vi måste räk¬ 
na ut F(x), vilket kan vara nog så svårt 
ibland. I de flesta fall ställer allt detta inte 
till några större problem. Så Newton- 


Prenumerera på VIC rapport 
Pg 84646-9 
120:—/år 
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Vill du köpa? 

Ring V1C rappports databas 
Tel 08-19 06 16 


En multiplikation är ju tyvärr något 
som det inte finns någon maskinkods- 
instruktion för och alltså är det upp till 
programmeraren att skapa denna ru¬ 
tin. Att den behövs någon gång i pro¬ 
grammeringsarbetet det är något som 
man kan vara helt säker på. 

Innan man gör ett program så är det 
dock MYCKET VIKTIGT!!! att man 
sätter sig in i uppgiften så låt oss först 
studera hur en multiplikation går till: 

Vi kan direkt konstatera att det finns 
två sätt att utföra en multiplikation på. 
Antag t ex att vi skall utföra multipli¬ 
kationen 

8 x 12 = ? 

För den som har multiplikationsta¬ 
bellen i färskt minne blir detta inget 
större problem, 96 dyker upp i huvudet 
alldeles av sig själv. För oss som ”vila¬ 
de” oss på mattetimmarna så krävs det 
lite räknearbete. Vi ställer upp: 

12 

x 8 I 


96 


och får på så sätt det rätta svaret. Vad 
är det nu som vi gör här? 8x16 betyder 
helt enkelt att 16 skall adderas till sig 
själv åtta ggr dvs 

16+16+16+16+16+16+16+16 = 

96 

eller 

8 + 8 + 8 + 8 + 8 + 8 + 8 + 8 + 8 + 8+8 

+8+8+8+8+8=96 


På samma sätt så skulle 
2x1034 = 2068 
kunna skrivas 
1034+ 1034 = 2068 

eller också kunde man addera två 
ettusentrettiofyra ggr (pust fräs). 

Att koda detta skulle inte vara sär¬ 
skilt svårt. Vi tar först och jämför de 
två faktorerna för att ta reda på vilken 
av dem som är minst och använder 
denna som en loopräknare som talar 
om hur många ggr vi skall addera den 
andra faktorn med sig själv för att få 
resultatet. Koden för ett sådant pro¬ 
gram skulle se ut något i den här stilen. 


********«*IM*****»*****«****iM<*****«* 


* MULTIPLIKATI0N <MULTS> ♦ 

* * 

* suceesiva Metoden * 

♦ # 

* BESKRIVNING' * 

♦ * 

* TvS 8-bitj tal multipliceras och ♦ 

* Ser ett 16-bits resultat. * 

* * 

* ♦ 

* STARTVILLKOR * 

* * 

* FAkTl innehätler faktor 1. * 

* FAKT2 innehSHer faktor 1. * 

* ♦ 

* * 

* SLUTVILLKOR: * 

* * 

* PR0DL innehSller 1S. Shut et. * 

* PR0DH innehlller hö9butet. ♦ 

* Dvs * 

* PRODUKT = FAKTOR 1 * FAK T 0R 2 t 

* * 

* * 

* * 


♦*♦♦*♦**#***##****»******♦*♦♦****#### 


Multiplikation 
på 6502’an 


Hur utför man en multiplikation om man måste göra den i 
assembler eller maskinkod. I denna artikel skall vi försöka 
reda ut begreppen en aning och förhoppningsvis ge några 
värdefulla tips. 

De rutiner som redovisas här kommer att vara skrivna 
som subrutiner vilket gör det mycket lämpligt för dig att 
spara dessa sidor då de senare kan vara en värdefull refe¬ 
rens. Detta gäller annars allmänt. En duktig programme¬ 
rare löser aldrig en uppgift som redan tidigare är löst. 


"startadress 


FRC r l 

FRCT2 

PPODL 

PRODH 


EQU 

EQU 

EQU 

EQU 


SF C 
♦FP 
*FE 
*FF 


• fal* tor 1 
;faktor 2 

• L3B av Produkt 
•MSB av Produkt 


• Initiera först PPODL. 'PR0PH s * att 
de inte li99er r»t9ot skräp 1 dessa 

;MinnesPositioner. 

LDR #*Q0 
STR PR0DL 

STR PRODH 

•Rv9or vilken av de btda faktorerna som 

• ar störst. 

LDR FRCT1 
CMP FRCT2 

• CflPPV sätts av denna, del om 
.FRKT0R1 >= FRKT0R2 

BCS SWRP 

;Har li99er dom som dom skall* dvs 
;FRKT0R2 > FRkTORi 

BCC CONT ,Utför wult 

•Byt Plats pJ faktorerna. 

SWRP PHR 

LDR FRKT2 
STR FRKT1 
PLR 

STR FRKT2 

■MULTIPLICERR DE TVÄ FRKTORERNR 

LDX FRKT2 *I 00 P räknare 
INX 

STRRT DEX ;KLRR? 

BEQ KLRRT ,Jfi' 

CLC 

LDR FRKTI 

RDC PPODL •Rdder a FRKT0P1 
STR PPODL -till detProdukt. 
BCC STRRT ,0BS 1 16-BITS 
INC PRODH .addition 
JMP STRRT 
RTS 

EHD 
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rapr w 


Se hit! 


Du som sänder in program¬ 
förslag till redaktionen. Det 
skulle vara bra om du 
skickade med band eller en 
diskkopia på programmet. 
Självklart skickar vi tillbaka 
dessa. 

Vårt arbete skulle på detta 
sätt underlättas väsentligt, 
och garantera ett bättre 
tryck. 

Red. 


■ Trots att vi här ansträngde oss för att 
få så få loopar som möjligt så har den 
här metoden enorma nackdelar. Tänk 
dig t ex ett fall där 
256x256 

skall multipliceras. Vi skulle då behöva 
gå igenom loopen 256 ggr. Låt oss istäl¬ 
let titta på en annan metod. För att 
kunna göra detta så måste vi försöka 
förstå vad som händer när vi utför en 
handmultiplikation. Låt oss därför ut¬ 
föra en sådan multiplikation. 

234 
x 22 


468 

468 


5148 

Frågan är nu om det går att utföra en 
liknande multiplikation binärt. Låt oss 
testa detta: 


234 = Kl1101010 

22 = K00010110 

11101010 
* 00010110 


00000000 

11101010 

11101010 

00000000 

11101010 

00000000 

00000000 

+ 00000000 

001010000011100 


OBS! att FAKTORI består av två bytes 
extrabytet, dvs högbytet behövs för vi 
skall kunna skifta denna mot höger. 


MULTE CLC 

LBA #$0@ 

STA PROBL 
STA PRODH 
STA FAKTORI+1 

minnen för resultat och faktori s 
'sk if■tbyte" ir iti era.de . 


LI'X #$07 ; 8 varv i looP 


START 


SKIFT 


5148 


LSR 

BCC 

CLC 

LBA 

ABC 

STA 

LBA 

ABC 

STA 

A3L 

BEX 

BPL 


;in9en add.hoPPa 
;addera delProd 


FAKT2 
SKIFT 

PROBL 

FAKT1 

PROBL 

PROBH 

FAKT1+1 

PROBH 

FAK~1 


START ;nästa varv 


ROL FAKT1+1 
RTS 


Tittar man på ovanstående och har 
skift instruktionerna på 6502’an i min¬ 
net så kommer man genast på ett sätt 
att lösa problemet på ett betydligt 
smartare sätt än det vi tidigare använde 
oss av. D v s det enda vi behöver göra 
är att skapa en loop som skiftar den 
ena faktorn ett steg åt vänster på varje 
varv och adderar resultatet till delpro¬ 
dukten om den andra faktorn har en et¬ 
ta i denna position. 1 annat fall tar vi 
bara nästa skiftning osv. Detta med¬ 
för att vi alltid klarar oss med 8 varv i 
loopen och metoden blir följdaktligen 
betydligt snabbare än den succesiva 
metoden. Här kommer ett program 
som utför en multiplikation enligt den¬ 
na metod: 


+ + 4 + ..4+4-'.*4 *4+4+++4+4*4***4+ • + * + *****• 

4 »flJLTIPLl'"B • A 

* 

* Binar* metoder* 

* ! 

* BESKRIVNING ♦ 

* * 

* Tv3 f ‘o 1 *■ -r “ut m” UiP1iceras och * 

* 9er ett 16-bits resultat. * 

* * 


JTfltjmVILLKOP 

FflKT 1 i M»h?1 ler ( tor 1. 
FAKT2 innehåller faktor 1. 


♦ SLUTVILLKOP 

* 

* 

4 
4 
4 


PROBL itrneh.su er lähbytet. 
PRODH innehSller hö9batet. 

Dvs 

PPODUKT = FRKTOP I * POKTOP 2 


♦ ’ 
4 4 44444 4 44444444-***4*44 4 444444444444 


Om du känner dig osäker på vad som 
händer i exemplet ovan så ta och testa 
genom att köra rutinen tillsammans 
med papper och penna. Detta är ett 
mycket bra sätt att lära sig programme¬ 
ring och man får in metoder och funk¬ 
tioner i minnet mycket snabbt, även 
om detta sätt att lära sig programme¬ 
ring kan vara väl så jobbig. 

För fullkomlighetens skull så visar vi 
även en rutin som utför en division 
mellan en 16-bits divisor och en 8-bi- 
tars dividend. Metoden som används 
är analog med den i vår senaste multi¬ 
plikations rutin, d v s vi använder oss 
av både skift och subtraktion. Vi kom¬ 
menterar inte denna rutin utan lämnar 
detta åt dig som övning: 


44444444*44*4444444444444444444444444 

4 DIVISION <BIVB> * 


sk i f t/subti—metod 

BESKRIVNING 

Ett 16-bits tal dividerss med ett 
8 -bits tat och lämnar '.voten som 
ett 16-bits tal samt resten so» 

tt S-bits tal. 

STRRTVILLKOR 

PVSOR innebSller tal att det? 

»e ) dvs divisor, S-bitar 
BVBNDL LJabste ?.'••• dividend. 

BVPNPH Hö9bste ?•••• dividend. 


SLUTVILLKOR: 

KVOTL LJ9bste av rest. t tat. 

KVOTH Hö9bate av resultat. 

PEST PEST för resultat, 
dvs 

KVOT =BIVIBENB/PIVISOP 

Tv3 S-bits tal multipliceras och 

Ser ett 16-bits resultat. 


* 

+44444444 c 4 c *;+*44 , 444 4 44444 + 4 4 + * + 4 + 44 44* 
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Mu 11 i P 1 i k at i on i 3.sserob l er. 




IJRG 

' p ro9r3.rost3.rt ' 




DVSOR 

EQU 

$E0 

.: Di visor 




DVDNDL 

EQU 

*E1 

; D i v i dend 1 3.9by te 




DVDNDH 

EQU 

$E2 

JDividend hö9byte 




DVDNDS 

EQU 

$E3 

;Dividend sk iftb. 




KVOTL 

EQU 

*E4 

; Kvot 13.9byte 




KVOTH 

EQU 

■t-E5 

Kvot hö9by te 




REST 

EQU 

$E 6 

■ Rest av division 




; Initiera 

ro i nnesP os i t i oner 







IUVB 

LDX 

#$00 



STX 

DVDNDS 

i no list. sk i t" tby t 





LDR 

DVSOR 





f 



IGEN 

BMI 

STRRT 

;in9et skift! 


INX 


.: ok R sk i ftrlk nare 





RSL 

DVDNDL 

.• sk i f ta. d i v i dend 





ROL 

DVDNDH 






ROL 

DVDNDS 

;in i skiftbyte 





RSL 

DVSOR 

;skifta divisor 





JMP 

IGEN 

;kol la nästa MSB 







STRRT 

LDV 

#$0F 

1 G varv i 1 ooP 

* 

ROL 

DVDNDH 

NäSTR 

RSL 

DVDNDL 

;sk ifta dividend 


ROL 

DVDNDS 






BCS 

CRRRV2 

,;C=1 —> su.btr. 





LUR 

DVDNDS 






CMP 

DVSOR 

;DVSOR < DVDNDS ? 





BCS 

CRRRV2 

i ne-j' >>, —>subtr 





RSL 

KVOTL 

; skifta 0 in i 





ROL 

KVOTH 

’> k vot 

JMP 

FORTS 


i 



CRRRV2 

SEC 




ROL 

KVOTL 

.: skifta 1 in i 

ROL 

KVOTH 

> kvot 


SEC 







LUR 

DVDNDS 






SBC 

DVSOR 





\ 

STR 

DVDNDS 

FORTS 

DEV 




BPL 

Nä ST R 

; en 9ån9 till ; 




SKIFT 

DEX 







BMI 

KLART 






LSR 

DVDNDS 






JMP 

SKIFT 






RTS 


KLRRT 

STR 

REST 
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Bygga en 
mikrodator och 
lite assembler. 

I den här artikeln skall vi först och främst ta 
en titt på några assemblerlösningar och se¬ 
dan ge några tips till dig som har planer på 
att bygga en egen mikrodator. 

INV 
BEX 

BNE LOOP 


Låt oss först titta pä ett program som 
kan användas för att flytta ett block i 
minnet till en annan area. Detta är 
något som man ofta råkar ut för och 
det kan därför vara nyttigt att titta pä 
en sådan rutin. Här är ett sätt att göra 
detta på: 

Blockförflyttning 

(BLKMOV) 

BESKRIVNING 

Ett block av valfri storlek 
flyttas till en anan area. 
Flsttnin9en bor'ar fr In den lä.9sta 
adressen dvs tar ej hänsyn till 
överla.PPnin9. 


STRRTVILLKOR: 

STRRT startadress för block att 
flytta. 

HNTRL Bet antal bytes sorn skall 
flyttas. 

BEST Ny startadress för blocket. 
SLUTVILLKOR: 

ORG 'startadress' 

BLKMOV LBV #*00 ..nolla index 
BEO DELSIB ;in9a sidor 

LBX RHTRL+l•antal sidor 

;Har flyttas en hel sida i ta9et 

SIBR LBR (STORT»•V ;flytta ett 

STR (BEST). V .byte 
INV 

BNE SIBR .nästa byte 

INC STRRT+1 
INC DESTrI 
BEX 

BNE SIBR .nästa sida 


,här flyttas en del av sida. dvs det 
..IterstS.r sedan alla hela sidor 
;har flyttats 

BELSIBR LBX RNTRL 

BEG KLRRT 

LOOP LBR (STRRT>,Y 

STR (BEST >,V 


KLRRT RTS 


Denna rutin är mycket enkel att ändra 
så att den passar även i ett fall när man 
har minnesblock som överlappar var¬ 
andra. Man måste då ha två rutiner. 
En som ovan och en annan som startar 
flytten från den övre delen av blocket 
och i inledningen av rutinen avgöra 
vilken av dessa som skall användas. 

O 

Vår andra assemblerlösning, och 
sista, är en rutin som kanske kan vara 
användbar för den som tänkt bygga ett 
"litet" experimentsystem. Rutinen 
omvandlar ett BCD tal i akumulatorn 
till den motsvarande ”7-segmentsko- 
den". Detta är ju alltid det enklaste 
och billigaste sättet att presentera sin 
data på om man nu inte är riktigt am¬ 
bitiös och satsar på en bildskärms- 
orienterad enhet från början. För att 
kunna koda alla tal mellan 0-9 krävs 
att vi har 4 bitar. Dessa kan alltså i 
realiteten koda ett valfritt hextal 
($0-$F). För att driva en 7-seg- 
mentsdisplay så kan vi välja tex 
74LS47 som har utgångar som ligger 
aktiva låga. dvs vi har en enhet som 
driver en gemensam anod LED. I fig 1 
kan Du se hur man skulle kunna kopp¬ 
la en enkel display. Här antar vi dock 
att vi inte har tillgång till denna krets 
utan bara en drivare (fig lb). 

På vår drivare har vi utgångar från 
a-g som var och en skall kopplas till ett 
segment på LED:en. Vi bestämmer 
oss för att koppla dem så här: 


•3. 

II 

i 

18 

Ib 

f 1 

8 

i 9 

I 

I! 

I 

! 

1 . 

e 8 

I c 

R d 

I 


Dvs den kod som vi skall lägga på in¬ 
gångarna skall vara: 

X visnin9X Kod titt driver X 

XBECI MfiLTMHEX I fil Bl Cl Bl El FlGlX 

X 0 X 01 I 01 01 01 0101 01 11 X 

X 1 X 4F I II 01 01 II II II II X 

x 2 x 12 i0i0i ii0i 0 i H 0 i 

X 3 X 06 I 01 01 0101 II II 01 X 

X 4 X 4C I 1101 01II110101X 

X 5 X 24 I 0111 01 0111 01 01 X 

X F X 60 I IIII0101 010101K 

X 7 X 0F 1010101II II II II X 

s X 00 101010101010101K 
X 3 X 0C I 01 01 01111101 01X 

Där en nolla på ingången (tex A) med¬ 
för att motsvarande segment på ut¬ 
gången skall vara tänt (tex a). 

Hur skall vi nu koda detta? 

En metod skulle vara att testa efter 
hand som programmet går framåt och 
sedan hoppa ur när en match uppstod. 
Denna teknik är dock både klumpig 
och utrymmeskrävande. Bättre är då 
att lagra de giltiga koderna i en tabell 
och sedan i en loop jämföra akumula- 
torernas innehåll med elementen i 
denna tabell i tur och ordning. Så här 
skulle ett progra enligt denna teknik 
kunna se ut: 


Har du ett bra recept 
på någon maträtt? 
Dela med dig, och ring till 
VIC rappports databas 
Tel 08-19 06 16 
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BCD-> 

7-SEGMENT 

(BCD->7) 

BESKRIVNING : 


Ett BCD kodat tal i aku.mulatorn 
omvandlas till motsvarande i 
7-se9mentskod för en semensa.m 
anod LED.OBS! att en 9emensam 
katod bara er-fodras att komPli- 
mentet tas av resultatet. Oro R 
inte innehöll ett BCB tal s? 
retuneras $FF i fl. 

STHRTVILLKOR 


flku.mulatorn innehSl ler ett 
BCD kodat tal. 


SLUTVILLKOR' 


flk umu l atorn i nneh 3.11 er ett 
?-se9mentkodat tal eller SFF om 
akumulatorn inte innehöll ett BCD 
kodat tal. 

SEGMNT BYT *01,f4F,$12 

BYT $06.' $4C.. $24 
BVT *60.S0F.$00 
BYT $0C 

BCD->? CMP #*0A 

BCC OMV 
JMP KLART 
;Har om 9ilti9 BCB kod. 

/ 

TflX ; Pekar 

TflV ;looPräknare 

INV 

LOOP LDA SEGMNT,X;t* in kod 

DEV 

BNE LOOP 

KLART RTS 

Lite hårdvarutips 
för hemmaplan 

Anledningen till att man någon gång 
lägger ned möda på att lära sig assem- 
blerspråket är ju ofta så enkel som att 
man måste kunna styra ett hemma¬ 
bygge. Det är ju trots allt så att om 
man bygger själv så måste man också 
göra alla styrrutiner själv. I ett kom- 
merciellt system som CBM maskiner¬ 
na. där man kanske har tillgång till ett 
högnivåsprak. är det knappast lönt att 
hålla på med assembler då högnivå- 
språket klarar av att lösa de flesta upp¬ 
gifter. Det är bara när man vill ha full 
kontroll över sitt system och extrem 
snabbhet som tillgripandet av assem- 
blerspråket är berättigat. 

Det första man skall tänka på när 
man skall bygga sig ett experimentsys¬ 
tem är att se till att man gör det lätt för 
sig. Att tex försöka plocka ihop något 
på en veroboard är i dessa samman¬ 
hang dömt att misslyckas. Bättre är då 
att köpa sig en virpenna med tillhöran¬ 


;bcd kod? 
; ne j i 


5V 


16 


74LS47 


0V 


ABC 


D 


userport 


9 1 

10 

2 

II 4 

12 

6 

13 

7 

15 

9 

14 

10 


5 




decimalpunkt 


fig.l 


5V 


5V 


FND 507 


fig. Ib 


Segment hos 
LEO (commonanod) 



BC337 el. lika 


8 * denna koppling bildar drivaren 


de virsocklar och experimentkort. Det 
kostar någon hundralapp att köpa des¬ 
sa prylar men man finner snart att det 
är en MYCKET god investering. Me¬ 
toden "JUST WRAP" som bl.a. säljs 
av ELFA är den jag själv använder 
mig av och klart rekommenderar. Vid 
denna metod så kan man lägga hur 
långa kontinuerliga kedjor som helst 
s.k. "daisy chain”, dessutom så slipper 
man helt det mycket tidsödande mo¬ 
mentet att skala tråd. Många andra 
virmetoder finns och har Du chansen 
så testa innan Du bestämmer Dig för 
köp. 

En annan bra metod är att använda 
sig av en kopplingsplatta. Samma sak 
gäller även här, som vid virning, att 
man får satsa några hundralappar men 
också i detta fall är de välinvesterade. 


ELFA och i stort sett alla andra lager- 
för en kopplingsbräda som kallas "BI- 
MBOARD” och är av mycket hög 
kvalitet. De är dessutom lätta att 
bygga ut till större enheter som blir 
både stabila och lätthanterliga. 

Själv brukar jag börja med att kopp¬ 
la upp enskilda enheter, tex en klocka 
på kopplingsbräda för att se om upp¬ 
kopplingen fungerar som jag tänkt 
mig. När detta är verifierat så åker 
virpennan fram och i detta moment 
har man chansen att se hur den en¬ 
skilda kopplingen fungerar tillsam¬ 
mans med de andra delarna. Fungerar 
dessa här så vet man i alla fall att de 
enskilda delarna fungerar och felsök¬ 
ningen underlättas avsevärt, samtidigt 
som virmetoden gör det lätt att modi¬ 
fiera kopplingen. 
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fig-2 


Togglande switch 


M„ 


in 


4k7 


IOO 


-O +5V 


M n 

O 


7404 


P°~ 


i 




7404 

-t>°- 


270 


\0[l 


-O O V 


fig.3 


Momeniär switch 


Nästa investering man bör göra är 
att inhandla ett oscilloskop och en bra 
voltmeter. Ett oscilloskop pä ca 15 
MHz är perfekt. Tyvärr sä är ju oscil- 
loskopen så pass kostsamma att de 
flesta inte har råd med ett. Man kan 
naturligtvis klara sig utan men bör då i 
alla fall investera i en logikprob. tex 
bygget i Elektronik världen nr 2-84. 
Man måste helt enkelt ha något som 
indikerar vilka nivåer man har pä vissa 
pinnar samt om klockan verkligen ger 
en puls ut och att denna går fram över¬ 
allt. 

1 fig 2 finns en ”togglande switch ’ 
som är mycket nyttig i många fall. 
Togglande betyder helt enkelt att den 
byter nivå pä utgången när man tryck¬ 
er pä knappen. Denna krets är till stor 
hjälp vid allt digitalt arbete och är inte 
så svår att "slänga" ihop heller. 

1 fig 3 ser Du en momentär switch. 
Dvs en krets som ger en "etta" ut när 
man sluter brytaren utan att ge en 
massa studsar (kontaktstuds ställer ga¬ 
ranterat till med problem) som en en¬ 
kel brytare alltid åstadkommer. 

En signalgenerator med en TTL-sig- 
nal ut är också till stor hjälp och den 
som beskrivits som bygge i ALLT OM 
ELEKTRONIK går utmärkt att an¬ 
vända. 

Till alla mikroprocessorer behövs 
någon form av klocka, till 65:an skall 
detta vara en tväfasig tingest på an¬ 
tingen 1MHz eller 2 MHz beroende pä 
vilken modell av kretsen man har 
tänkt jobba med. En mycket bra 
koppling frän applikationsmanualen 
till 6502:an hittar Du i fig 4. 

Om man tycker det skulle vara bra 
med två akumulatorer och ett 16-bits 
indexregister så kan Du som kan as- 
sembler pä 6502:an med lätthet jobba 
med 6800. Till denna kan Du direkt 
koppla en kristall (se tig 5). Instruk- 
tionsreportoaren för de tva är nästan 


1,5 K 


-L 


0,05 fl 2,2K 


f>°- 


V 6 7404 4194304 

fig.4 Klocka 
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lika och någon timmas studier av in- 
struktionsreportoaren på 6800 gör att 
man behärskar även denna processor. 
Om Du lägger ned lite extra tid så får 
Du inte heller särskilt stora problem 
med en övergång från 6502:an till den 
formidabla och verkligen kraftfulla 
processorn 6809. 

För alla nämnda processorer gäller 
att man måste tänka pä att man måste 
”hissa” upp ett par av dess ben till 
+5V, detta sker lämpligen med hjälp 
av en resistans på ungefär 2.2K. Hos 
6502:an är dessa ben IRQ.NMI.R- 
DY.SO (kan lämnas öppen), SYNC 
och RESET. För reset kan dock en 
krets enligt fig 6 med fördel användas. 
Denna krets gör en RESET när ström¬ 
men slås på till datorn, vilket för att 
man på så sätt alltid får en väldefinie- 
rad programstart vid uppstarten av 
systemet. Vilket, om man tänker ef¬ 
ter. är att föredra. Kretsen i fig 6 har 
också en brytare som gör det möjligt 


4MH 


att göra en reset av datorn när man vill 
återstarta systemet. 

Skall man mata många kretsar från 
sin mikrodator så skall man tänka på 
att adressbussen och databussen bara 
orkar driva en normal TTL last. Dvs 
skall man driva större laster så behövs 
någon form av buffertar. 74LS245. 
74LS244, 8T28 och 8T97 är några man 
kan välja dessa kretsar är dock inte så 
lätt att få tag på med den kris och 
hamstring som råder pä elektronik¬ 
marknaden. 

När man gjort sin koppling kan det 
vara lämplig att först kontrollera att 
man har spänning till alla kretsar in¬ 
nan man sätter i kapslarna. Nästa steg 
är att sätta i kapslarna för klockan och 
kolla att denna går fram överallt och 
har de rätta nivåerna. 

Sätt sedan i mikroprocessorn och 
kontroller att alla nivåer på dess pin¬ 
nar ser ut att ligga normalt (IRQ.RE¬ 
SET etc skall tex ligga höga). Sätt sist i 
resten av kretsarna och håll tummarna 


Ring VIC rappports databas 
Tel 08-19 06 16 


för att allt fungerar. Gör det inte det, 
vilket det oftast inte gör, är det dags 
att börja felsöka. Vid felsökningen 
kan det löna sig att kolla så att man 
inte har några ledningar som det är 
avbrott på. Har man inte det kan man 
återigen kolla de olika enheterna och 
gå mot lägre och lägre nivå tills man 
hittar felet. Något man absoslut inte 
skall misstänka i första hand är att 
”det är en IC som är felaktig". Det är 
mycket sällan som detta är fallet och 
det är bara att erkänna att felen i de 
absolut flesta fallen beror pa begräns¬ 
ningarna hos oss konstruktörer eller 
med ett annat ord SLARV. 

Jag hoppas att denna artikel i alla 
fall har givit något och att dessa hård- 
varutips kan rädda i alla fall en från ett 
par timmars felsökande. Assembler är 
inget som man lär sig över en natt så 
misströsta inte om Du tycker att Du 
inte kan något ännu. Det är endast ge¬ 
nom övning och äter övning som man 
kan lära sig tekniken fullständigt. Det¬ 
samma torde gälla härdvarupulandet. 
Det finns många bra böcker pä områ¬ 
det och Du bör inte ha något större 
problem att hitta nägon som faller Dig 
i smaken. En bra svensk bok i ämnet 
har jag dock ännu inte sett men en så¬ 
dan lär väl kanske någon gäng se sitt 
ljus. Vad det gäller mikrodatorkon¬ 
struktioner så bygg pa. Det är inte far¬ 
ligt att TÄNKÄ själv och testa egna 
idéer och kopplingar. I och med att 
kretsarna blir billigare och billigare så 
behöver det heller inte bli särskilt 
dyrt. Så bygg på. 


EXTAL 
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fig. 5 


C,=Cj=22pF 


C 2 
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Maskinkods- 
laddare, del 2 


I VIC-Rapports aprilnummer beskrevs en 
maskinkodsladdare för en expanderad 
VIC-2Ö. Artikeln saknade erforderlig pro- 
gramlistning, ett måste för att programmet 
skall bli användbart. I avsikt att reparera 
missödet, presenteras nu en utförlig bruks¬ 
anvisning till programmet samt den kom¬ 
pletta listningen. Beskrivna program passar 
både en med 16-K expanderad VIC-20 samt 
storebror VIC-64. Bifogad huvudlistning 
visar 64:ans program, men följs av en 
listning av de programrader, som skall änd¬ 
ras, för att programmet skall passa VIC 
20-maskinen. 


TOR. Då du nu läser in MONITOR, 
läses programmet till just detta områ¬ 
de. Starta programmet med RUN' 
och på skärmen anges "WAIT FOR 
LOADING”. Maskinspräksrutinerna 
i MONITOR 'bokas' nu in. Sekvensen 
avslutas med följande skärmbild: 


[MONITOR] 

ASSEMBLE = [RETURN] 

BASICLOAD[Y]/HELP[H]/DlSASSEMBLE[D]?^ 

Genom att exekvera return. Y. H eller 
D kan du utföra följande: 

Anger du endast [return] kan Du nu 
skriva ett assemblerprogram. Ditt pro¬ 
gram kommer att starta pä adress 
$080D (120D för VIC-20). En mera 
detaljerad beskrivning följer längre 
fram i texten. 

Väljer du alternativet Y (return) kan 
du nu assemblera en rutin, som kan 
användas som subrutin i ett eventuellt 
basicprogram. Du väljer själv starta¬ 
dress. 

Alternativet H innebär hopp till en 
sekvens i MONITOR, som jag valt att 
kalla HELP'. Programsekvensen ut¬ 
för omvandling från HEX till DEC 
och omvänt. Hjälpen är värdefull vid 
planering av program. 

D-valet innebär disassemblering. Du 
kan välja önskad area och denna sek¬ 
vens låter Dig "titta in i" maskinens 
inre. Speciellt intressant är att disas- 
semblera maskinens ROM. ex.vis bas- 
ictolken eller rutiner i Kernal. An¬ 
vänder Du printer, får Du disassem¬ 
blering prydligt pä papper. Disassem¬ 
blering visas även på skärmen. 

ASSEMBLERING 
(e.g. 

programmering). 

Sekvensen har nätts genom re- 
turntryckning efter inläsningen. Pä 
skärmen visas nu: 

HEX DEC 
CODE 


För att fä full insikt i programmets 
struktur och möjligheter, måste 
aprilnumrets artikel läsas först. 
Nämnda artikel beskriver ett program 
i stort, ger behövlig instruktion för 
programinskrivningen samt visar hur 
datorns minne används. Inläsning och 
programlagring är identisk för de bada 
maskinerna. Observera att PRE- 
MON skall först läsas in och sparas. 
Da PRE-MON sedermera exekveras, 
sker den minnesuppdelning som är 
nödvändig för att reservera en speciell 
area för MONITORS basicprogram. 
Följande minnesuppdelningar gäller: 


Observera, att viss del av arean för 
MONITOR är för maskinspråk, som 
"pokas" in av basicprogrammet. 

Bruksanvisning med 
förklaringar 

Läs in PRE-MON frän band eller disk¬ 
ett. Exekvera 'RUN'. Skärmen blank¬ 
as ett ögonblick och visar därefter föl¬ 
jande text: 

64 K RAM 10239 BASIC BYTES 
FREE. 

Ett särskilt minnesutrymme har nu re¬ 
serverats för programmet MONI- 


Adress VIC-20 d:o VIC-64 


"Dummy Basic" 
Programarea(MC) 
Basicprogram. MONITOR 
Programarea. MC-subrutiner 
Monitorarea (1) 

Monitorarea (2) 


4608- 4620 
4621 - 15871 
15872-24319 
24320-24568 
24569 - 24575 
673- 756 


2048- 2060 
2061 - 30720 
30721-40950 
49152-53247 
40953 - 40959 
840- 927 


SAddr 
80 D 


OP/& 

MNEMC 
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Markören är placerad under ”M" i 
MNEMC. Skriv in en mnemc och exe¬ 
kvera med return. Observera att pro¬ 
grammet kräver mnemcs i format 
fyrställig kod (4 tecken). Den fjärde 
symbolen i mnemc-gruppen anger 
adresseringsmode. De använda 
tecknen är "A. #, $. X. Y, + , I. En 
komplett förteckning ser ut som följer: 


Adresseringsmode: Skrivs med: 


Relative & Impled 
Accumulator 
Immediate 
Zero Page 
Absolute 
Absolute. X 
Absolute. Y 
Indirect. X 
Y, Indirect 
Jump indirect 


(ex: TAX.) 
A (ex:ASLA) 
# (ex: LDA#) 
Z (ex: STAZ) 

$ (ex: LDAS) 

X (ex: STAX) 

Y (ex: STAY) 

1 (ex: LDA1) 

2 (ex: STA2) 

I (ex:JMPI) 


Anger Du en MNEMC felaktigt, dvs 
på sådant sätt att programmet ej kän¬ 
ner igen den, stannar markören kvar 
under "M". men ett ”?” syns under 
markören. Korrekt angiven mnemc 
resulterar i att båda högra kolumnerna 
ifylls i reverserad skrift, utvisande in¬ 
struktionens kod, hex. och dec. En ny 
adress - nästa adress - visas automa¬ 
tiskt och ny MNEMC eller operand 
kan inskrivas. Observera att varje in¬ 
struktion, mnemc eller operand skrivs 
på egen. ny rad. Du arbetar s.a.s. ned¬ 
åt på skärmen. Detta ger i praktiken 
en mycket överskådlig bild under pro¬ 
grammeringsarbetet. En typisk pro¬ 
gramsekvens kan se ut så här: 


SADDR. 

OP/& 

MNEMC 

HEX DEC 
CODE 

80D 

LDA# 

A9 169 

80 E 

09 

9 9 

80F 

LDY# 

A0 160 

810 

15 

15 21 

811 

JMP$ 

4C76 

812 

1E 

1E 30 

813 

AB 

AB 171 


En annan mycket användbar funktion 
är inskrivning av "MEM" som en 
MNEMC. MEM innebär att du hop¬ 
par till ett nytt område i minnet. Ett 
typiskt sätt är att lägga texter, tabeller 
eller data i ett särskilt minnesomräde. 
Skriver Du in MEM. anger Du önskad 
adress till vänster och fortsätter sedan 
programmeringen som vanligt. Du 
kan använda MEM hur mänga gånger 
som helst. Skriver Du fel under pro¬ 
grammeringen och upptäcker detta 


några rader upp på skärmen, skriv in 
en £ (snabel-a) och raden ovanför 
markören suddas bort. Du kan på det¬ 
ta sätt stega bakåt och radera i pro¬ 
grammet så långt Du önskar. En an¬ 
nan sak att beakta är att operander 
skrivs in i HEX-form. Samma gäller 
numeriska värden (siffror) som an¬ 
vänds i matematiska operationer. Siff¬ 
ror och bokstäver, som ingår i bl.a. 
textsträngar skrivs i vanlig form, dvs A 
B C .... 1 2 3 etc. För att underlätta vid 
just skrivandet av text finns pä pil till 
vänster koden för CR (CHR (13) och 
på pil uppåt finns space (mellan- 
slag=CHR$(20)). Du avslutar ditt ar¬ 
bete i denna sekvens (assembleringen) 
med att skriva in en asterisk (*). En 
meny med utseendet enligt nedan pre¬ 
senteras då. 

PROGRAM ENDED! 

#1 L1ST/CORR. 

#2 DISASSEMBLE 
#3 SAVE ON D1SC./TAPE 

Val nr. 1 ur denna meny innebär i 
princip "disassemblering" av Ditt in¬ 
skrivna program. Jag har dock före¬ 
dragit att kalla den LIST/CORR.. ef¬ 
tersom korrektioner i programmet kan 
göras. Programmet rullar fram på 
skärmen i samma format, som då Du 
skrev programmet. Du kan stoppa 
med RUN/STOP och fortsätta med 
kommandot "CONT". Önskar Du 
stoppa för att redigera programmet, 
tryck på "S". Ett $-tecken visas till 
vänster i adresskolumnen. Skriv in den 
adress Du önskar korrigera. 

Du kan givetvis korrigera en längre 
sekvens också. Ange bara adress för 
sekvensens startlägg. Du ändrar inne¬ 
hållet på raden enligt samma mönster, 
som då Du programmerade. Ny adress 
skrivs automatiskt och Du avslutar 
med asterisken. 

Väljer Du nr. 2 ur meny. disassem¬ 
blering, visas också Ditt program. 
Skillnaden är nu först och främst, att 
ingen redigering kan göras. 

Du kan begära utskrift av disassem¬ 
bleringen på printern. Adresserna 
visas nu i både dec. och hex. form. 
Området som disassembleras väljs nu 
inte automatiskt, utan Du måste ange 
både start- och slutadress i hex-form. 
Denna programsekvens är identisk 
med valet av "D” i menyn, som visas 
vid programstarten. 

Alternativ tre innebär att Du nu kan 
spara Ditt assemblerprogram pa tape 
eller disk. Val av 3:an innebär 
följdfrågan ENDADDRESS+1 
($HEX). Ange Ditt programs slut¬ 
adress + 1. Skärmen blir blank. Skriv 



det vanliga save-kommandot med an¬ 
givet programnamn och enhetsnum- 
mer 8, om det gäller diskdriven. Dä 
programmet lagrats, skrivs READY 
ut pä skärmen. Vill Du nu ätergå till 
att använda Ditt hjälpprogram MONI¬ 
TOR igen. skriv SYS908 för VIC 64 
och SYS697 för VIC-20. SYS-kom- 
mandot skall därefter följas av 
"RUN”. 

Ditt sparade program kan laddas 
med "LOAD" och tack vare den s.k. 
Dummy Basicen startas med "RUN". 
Du skall vidare lägga märke till, att 
det endast är "rena maskinprogram" 
som kan sparas på det här sättet. Ma¬ 
skinprogram, som skall ingå som 
subrutiner i basicprogram. bokas in av 
basic. Det exakta användningssättet 
visas nu. 

Skriva rutiner till Basicprogram: 

Ur huvudmenyn väljer Du Y (return). 
På skärmen visas lämpligt minnesut- 
rymme för Dina subrutiner. Ange av¬ 
sedd startadress. Skärmen visar nu 
samma utseende och format, som vid 
vanlig assemblering. Den startadress 
Du valt, visas längst till vänster. Det är 
från denna adress, som uppräkningen 
nu sker. Programmet avslutas med as¬ 
terisken och undermenyn visas. Den¬ 
na meny har nu fått ett nytt alternativ, 
nr 4, som säger "BASIC LO¬ 
AD.PTR". Sekvensen innebär att ut¬ 
skrift på printern visar de värden, som 
skall pokas in av ett basicprogram. Du 
får angivet start och slutadress i deci¬ 
mal form. Avsikten är att Du skall 
kunna skriva en FOR...TO...sats en¬ 
ligt visad adress och läsa in maskins- 
pråksrutinen som datasatser. Forma¬ 
tet pä skrivaren är lagt enligt lämpligt 
data-satsformat. Har Du ingen prin¬ 
ter. disassemblera och anteckna deci¬ 
malvärdena frän skärmen. Observera 
att rutinen inte kan sparas på disk eller 
tape. Subrutinen skall sparas inom det 
basicprogram, som den skall ingå i. 

Listning: 

Först visas listning av PRE-MON för 
VIC-64. Därefter visas listning av 
MONITOR för VIC-64. Dessa båda 
listnmgar följs av en PRE-MON för 
VIC-20 och därefter de rader, som 
måste ändras för att konvertera pro¬ 
grammet till en med minst 16-K ex¬ 
panderad VIC-20. Du skall lägga mär¬ 
ke till aprilnumrets listförklaringar vad 
gäller grafiska symboler. De underlät¬ 
tar inskrivningen av programmet. De 
markerar bl.a. cursorförflyttningar. 
som är viktiga för att hälla ett visst, 
bestämt format pä skärmen. Lycka till 
med assembleringen. - 
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PRE-MON FöR CEM- 64 > 


0 REM:******************************** 

1 REM :*###*£ PRE-MON FÖR CBM-64 >***** 

2 REM:******************************** 

5 FORN=840TO853 

10 REABA ; POKEN,R : NEXTN 
4 S WS340 

TiQTfi t 69,120 > 141 } 130 >Z> 169.»158 > 133 .• 52 .* i 33 .■ -j6 .• 32 > 248 / 252 
25 REM R PRE-M0N RESERVERAR BASICRREAN FöR SJÄLVA PROGRAMMET ''MONITOR' 

REABV. 

<MONITOR FöR CBM- 64 > 


0 REM:******************************** 

1 REM : *****< MONITOR FöR CBM-64 >***#* 

\ ^Ä«Äw!rJÄt,e:POK E5 ^,e : ooT09 , 

4 P0KE53280,0■P0KE53281,0:P0KE52,159-P0KE56,153:PRINT" <3","WAx T FOR LORDINO ! 
r0RN=854T0883 • REABA : POKEN,fl : NEXTN ; G0TG8 

6 DfiTA162,0,189,103,3,157,0,3,232,224,13,240,3, ,'6,88,o,96 

7 DRTR0,13,8,0,0,158,50,48,54,49,0,0,0 

| S?ra<4r< T iwNnOR* - : printtrbc?>-print:print"*rssemble**<return 

V': PRI NT '■ PRI NT 

10 INPUT" BRSICLOAD (V > /HELP C H) /DISRSSEMBLE < D >" J 1% '■ G0T094 

25 K-iS : 3$ s ''" 

30 ’t-INT(X/K) : Z=X-'t’*K ; X=Y 

40 X$=RIGHT$(STR$(Z), 1) : IFZ>9THENX$=CHR$<4+sjj; 

50 3$=X$+3$:IFX=0THENRETURN 
55 GOTO30 

60 K=16•fl=0:G=0:N=LEN < A$)-1 

70 FORI*NTO0STEP-1 : fl=A+l 

■?* 7 = Qqr:(MID$CR$, A, l))-48 : IFZ>16T'HENZ=Z-i' 

80 IFZ>15THENPRINT"«BIBSSBi IBSBBHiiMBSfi!" i • GOTO10J 

90 Z=Z#KTI:G=G+Z:NEXTI:RETURN 

44 IFZ$="D"THEN600 

45 IF < Z*0" V " >AND < 2*0 ” H ”) THEN100 

46 IFZ$=”H"THEN900 _ 

47 PRINT"3ASIC-LCRB" - PRINT" 

T 


:PRINT:PRINT"FREE AREAS=49152-53247":PRIN 


49 I NPUT " ST ART ADBRESS ( DEC ) " J L = L=L-1 : PRINT"rj": GOTO 101 ^ 

i00 PRINT"T•L=2060•PRINTTABC6)"A3SEMBLER" : PRINT iRB(b> 


l Z NNEMC CODE" tPRINl'— 

-" :F=L +1 

i M4--" " • nPFKl9< A: L=L+1 • X=L : G0SUB25 : PRINTB#, TAB( <) > ___ 

le? ww!5»iR^-rTWRiNr* * sKissfiiiiEiin" l»l-2 : closeb 

ie 4 T ;pS="MErTKENPR;NT:PRINT"^EM MW : INPUT 49 jR$ : GOSU 360 L- 0~1 :«t 

NT "T ' CL 0 SE 3 : GOTO i 02 
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105 IFM$=”t"THENM$=" sp;;" 

106 I FM$= " THENM$= " CR;; ” 

107 IFM$="#"THENU=L-1:CL0SE9 : GOTO120 

108 IFLENCM*)=4THENGOSU3400:GOTOl12 

109 IFLEN()=1 THENX=R3C( M$ ) '■ G03UB25:Kf=B$: GOTOl 12 
i 10 IFLEN<M$>=2THENK$=M$:GOTOl12 

1i 1 POKE40957,94:GOTO403 

112 PRI NT" S4" TRB< 13>K$" ,! ; : R$=K* = GOSUB60 : PRINTTRBU6>G; "Sr '• POKEL,G: CLRSE9: R0T01 
02 

120 PRINTLTROGRRK ENDEii !" :PRINT 
125 PRINT"#1 LIST/CORR." ; PRINT 
130 PRINT"#2 DISRSSEMBLE" : PRINT 

135 IFZ$=" V "THENPRINT"#4 BflSIC-LORD(PTR)" : PRINT:GOTO150 
148 PRI NT" #3 SRVE ON DISC./TRPE’’ : PRI NT 
150 VR=0 INPUT"VfiL *",Vfl : ONVRGOTO500,600,780,380 ; R! )N 
388 F0RV-834T0927 RERDR:POKEV,R:NEXTV 

301 F0RN=29i84TO30268 

302 RERDR:POKEN,R:NEXTN 

303 FORI-30464TO30630 

304 RERDR : POKEI, R : NEXTI 

305 RETURN 

306 DRTR169,1,133.43,133,172,169,3,133,44,133,173 

307 DRTR141,130,2,169,0,133,45,169,0,133,46,0 

388 DRTR169..0,133,45,169,0,133,46,169,120,133,44,141,130,2,169, i, 133,43,R6 
309 DRTR67,32,59,59,43,68,1,00,08,00,00,00,00,0 

318 DRTR65,53,57,35,54,57,2,65,68,67,90,54,53,2,65,68,67,43,55,53,2 

311 287065,68,67,36,54,68,3,65,68,67,83,55,68,3,65, SS, 67,39,55,57,3 

312 DRTR65,68,67,49,54,49,2,65,68,67,50,55,49,2,65,78,68,35,50,57,2,65,78,68,90, 

58.53.2 

313 DRTR65,78,68,43,51,53,2,65,78,58,36,50,63,3,65,78,68,88,51,68,3,65,73,68,89, 

51.57.3 

314 DRTR65,73,68,49,50,49,2,65,78,68,50,51,49,2,65,83,76,65,48,65,1,65,83,76,90, 

48.54.2 

315 DRTR65,83,76,43,49,54,2,65,83,76,36,48,69,3,65,83,76,38,49,69,3,66,67,67,46, 
5 ( 1 48 .* 2 

316 DRTR66,67,83,46,66,48,2,66,69,31,46,70,48,2,66,73,84,90,50,52,2,66,73,84,36, 

58.57.3 

317 DRTR66,77,73,46,51,43,2,66,78,69,46,68,48,2,66,88,76,46,49,48,2,66,82,75,46, 

48.48.1 

313 DRTR66,86,67,46,53,43,2,66,36,33,46,55,48,2,67,76,67,46,49,56, i, 67,76,68,46, 

68.56.1 

319 DRTR67,76,73,46,53,56,1,67,76,86,46,66,56,1,67,77,80,35,67,57,2,57,77,80,90, 

153j 

320 DRTR67,77,80,43,68,53,2,67,77,80,36,67,63,3,67,77,80,38,68,68,3,67,77,80,89, 

68.57.3 

321 DRTR67,77,88,49,67,49,2,67,77,30,50,68,49,2,67,30,33,35,69,48,2,67,30,88,90, 

69.52.2 

^ '50,83,36,69,67,3,67,80,89,35,67,48,2,67,30,89,90,67,32,2,67,88,89,36, 

67.67.3 

323 DRTR68,69,57,90,67,54,2,68,69,67,43,63,54,2,63,59,67,36,67,69,2,68,69,67,88, 

68.* .• 3 

324 DRTR6S,69,88,46,67,65,1,68,69,89,46,56,56,1,69,79,82,35,52,57,2,69,79,82,90, 

52.50.2 

325 DRTR69,79,32,43,53,53,2,69,79,32,36,52,68,3,69,79,82,88,53.63,3,69.79.82,89, 

53.57.3 
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326 DRTR69,79,32,49.52,49,2,69,79,32,50,53,49,2,73,78,67,90,69,54,2,73,78,67,43, 

sl7 5 SRTO73,78,67,36,69,69,3,73,78,67,33,70,69,3,73,78,89,46,67,56,1,74,77,38,36, 

328 S 5flTfl74,77,38,73,54,67,3,74,83,82,36,38,48,3,76,68,53,33,63,57,2,76,63.65,98, 
fl^DR^,68.65,43,66.53,2,76,68,65,36,65,68,3,76,68,65,88,66,68,3,76,68,65,89, 
330 5 3flTfi76,68,63,49,65,49,2,76,63,63,50,66,49,2,76,68,38,33,65,30,2,76,63,83,90, 

S; 5 UbTB 76,68,88,43,66,54,2,76,63,83,36,63,69,3,76,68,38,89,66,69,3,76,63,89,35, 
l2 4 DBW6,68,89,90,65,52,2,76,68,89,43,66,52,2,76,68,89,36,63,67,3,76,68,89,88, 
83,82,65,32,65,1,76,83,82,90,32,54,2,76.83,32,43,33,54,2,76,83,82,36, 

l4 S WTB76,83,82,88,53,69,3,78,79.80,46,69,65,1,79,82,63,35,48,37,2,79,82,63,90, 

M5 5 3BTfl79,82,65,43,49,53,2,79,82,63,36,48,68,3,79,82,65,88,49,68,3,79,32,65,89, 

336 5 3BTB79,82,63,49,48,49,2,79,32,63,50,49,49,2,80,72,65,46,32,36,1,80,72,80,46, 

äf 5 Wfi80,76,63,46,54,36,1,80,76,88,46,50,36,1,82,79,76,63,50,65,1,32,79,76,90, 
3?8 3 SHTfl82,79,76,43,51,54,2,82,79,76,36,30,69,3,82,79,76,38,51,69-3,82,79,82,65, 

33^82,79,82,90,54,54,2,32,79,82,43,33,54,2,82,79,82,36,34,69,3,82,79,32,88, 

!40 S DRTH82,84,73,46,32,48,1,82,84,83,46,54,48,1,33,66,67,35,69,37,2,33,66,67,90, 

Si 5 3RTR83,66,67,43,70,53,2,83,66,67,36,69,68,3,83,66,67,88,70,68,3,33,66,67,89, 

342 S DRTR83,66,67,49,69,49,2,33,66,67,30,70,49,2,83,69,67,48,31,56,1,83,69,68,46, 

343 5 JRTR83,69,73,46,53,56,1,83,84,65,90,56,33,2,83,84,65,43,57,53.2,83,84,65,36. 
3M 6 DRTR83,34,65,88,37,68,3,83,84,63,89,37-37,3-83,84,65,49,56,49,2,33,84,65,38, 
343 4 0RTfl83,84,88,90,36,34,2,83,84,88,43,57,34,2,83,84,88,36,56,69,3,83,34,39,90, 

!!é 5 3R?R83,84,89,43,57,32,2,83,34,89,36,36-67,3,84,65,83,46,65,63,1,34,65,89,46, 
89,65,46,37,56,1.84,83,88,46,66,65,1,84,83,65,46,36,63,1,84,38,83,46, 

348 S DHTA83.80,59,39,50-48,1,69,83,67,59,49,66,1,73,73,88,46,69,56,1 

350 DRTRi69,0, 133,90/169, i 13 7 133 

351 DRTR91,160,255,162,0,189,249 
^52 DRTR 159,32,62,119,209,90,24@ 

353 DRTR15,165,91,201,119,203,6 

354 IiRTR 169,94,141,253,159,96,76 

355 DRTR10,119,232,224,4,240,3 

356 DRTR76,12,119,32,62,119,177 

357 DRTR90,157,249,159,232,224,7 

358 DRTR248,3,76,45,ii9,96,192 

359 DRTR255,208,5,163,0,230,91 
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360 DRTR36 , 208 , 36 , 234,234,234 , 234 

361 DRTR234 .. 234 .• 234 , 163,0,133,33 

362 BRTR169,113, 133,31,163,255, 162 

363 BR7R0,133,243,153,32,62,113 

364 BRTR283,30,243,3,76,33,113 

365 DRTR232,224,2,240,3,76,92 

366 DR7R1i 9,32,62,113,163,4,233,33 

367 DRTR16,6,32,156,113,76,33 
363 DRTRiiS,177,33,157,249,153,32 
363 BRTR15S,113,32,156,115,32,156 
373 DRTR1i3 , 177 , 33 , 232 , 157 , 243,159 

371 DR7R224,6,243,3,76 , 139,119 

372 BR7R96,192,3 , 233 , 5 , 163 , 255 

373 DR7Ri33,31,36,136,36 

433 PQKE40353,RSCCM$) :PGKE40354,RSC<PIIDt<t1$,2, 1)) 

40 i POKE40955, FISC C MI Dt C Mt , 3 , i ) > : POKE40956, RSC < R IGHTf C Mt , 1 )) 

432 SVS30464 : Kf=CHRt < PEEK < 40357 ) > +CHRf -1 PEEK < 48553 ) ) 

483 IFPEEK < 48357 ) =947NENL=L-1 : PRIN7" ISBif? T : CL03E3 : GO7O102 

484 RETURN 

405 M=0 : POKE40353 , RSC < Cf ) : POKE40954 , RSC < RIOHTf < C t,1) ) 

486 SVS30544 : Bt=CHRf<PEEK ( 40953 )) +CHRt C PEEK C 40358 > > +CHRt C PEEK < 40957))+CHRf < FEEK < 
40956)) 

403 M=PEEK<48355) 

489 RETURN 

500 PRINT”3" •• PRINTTRB<4 ) ” LIS7ER/C0RR. " : PRI NTTRB<4 ) "- 

581 IF <ZZ=i)RND <U=>P)THEN508 

582 I FZ2= 17HENij=P = 3070683 
503 P=U : 3070609 


"" : PR IN7 : Xf = "" 




558 0PEN9,0:PRINT"tIi"; : INPU7#9,Rf : GOSU360 : L=G-1 : M=0:ZZ=1:PRIH7"8 ESe3 5 

II 

551 CL0SE4 : CL0SE3 : GG7O102 

600 PRINT" 3" J"DISRSSEM3LE"s PRINT 

601 INPUT"HRR DU FRISTER : IFV$="N"THENVt="" :pj=l :pRIN7"^ ,! : GOTO605 

602 0PEN4,4 : FRIN7 

685 INPU7 ” S7RR7RDDRESS. <HEX f) '■; Rf: GOSUB60'• F=G : PRI NT 

686 INPUT”END RDDRESS . <HEX : GOSUB60 : U=G : PRINT"3II3fiSSEMBLER ,! :?RINT"- 

.. ■ »i 

687 IFVROiTHENPRINT:PRINT " DEC.RDDR. " ;TRB(10)”HEX.RDDR.";TRB<20)"MNEMC";TRB<30) 
"CODE:" 

608 PRI NT'-— 

683 D$=" : M=8 

619 F0RE=FT0U : B=PEEK<E) : X=E : G0SUB25 : Rf=Bt '• X=B : G0SU325 : Cf=Bt ■ IFLEN< Ct)C2THENCt="0 
!, +Ct 

673 IFM>0THEN682 

688 GOSUB405 

682 M=N-i : IFVR=1THEN635 

634 PRINTE ; 7R3< 18)Rf; TRB < 28)Dt i TflB (. 30)" S"Cf"B; "g" : Df= ” ,! : G070689 

685 PRINTflf,TRBC7)Df;"S'TRBQ3)Ct" ",7RB<16)B; : GE7Xf : IFXt=”S"7HEN558 
666 IFVfi=l i HENDf=" '' : NEX7E : INPUTVf ; 3070128 
583 IFPJ=17HEN695 

690 PRIN7#4,E; CHRf < 15 ) '' 1 i " Rf ; CHRf(16) "21 " Df ; CHRf(16)"31"Ct 1 CHRf< 16)"38"B • Df=" " 

635 NEX7E : Vf=" " :PJ*0 : CL0SE4 = INPUT"C0N7.(V) "; Vt ; IFYt="V"THEN600 
696 GOTO128 

789 PRINT"T;"SRVE ON 7RPE/DISC! ” : FRIN7 
718 INPUT"END RDDR. < HEXf)+1 "; U$■SYS854 
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■;CHR$(I3> 


:FRINT 


723 F0KE989.PEEK C 45> = PQKE913.PEEK(46) _ .. 

~~2 R$=RIGHT$(Ut• 2) : G0SUB66 : P0KE988.G 1 R$=LEFT$CU$. 2) ; 0030358 ■ rUKc-04.U • orc:'o4 

747 FEM ■ 

758 REM : ATERSTflRT EFTER / SRVING'= SVS90S 
755 REM : ************************************* 

808 PR I NT" HBRS IC-LORBER " : PR I NT 
805 0PEN4.4 : fl=0'•PRINT#4,"3RSIC-LCRDER PRINT#4. 

805 PRINT#4.F"-"U 
318 F0RN=FT0U '• FRINT#4. FEEK(N) ; 

Si 5 R=R +1 • IFR=i 5THENR=0 : PR INT#4 .■ CHR$(13) 

828 NEXTN '■ PRINT#4 : CL0SE4 '• INPUTZ $ : Xf s " " : GOTO 128 
900 PRINT"ZHELP-PRQORRM " : PRINT" 

918 PRINT"#i DEC -> HEX” : PRINT 
915 PRINT"#2 HEX -> DEC"'PRINT 
920•w=e : i nput" vaur' ;w 
921 ONWGOTO930. 948 

938 PRINT "T ; : INPUT”DEC =" ; X = G0SUB25 : PK I NT " rTSTsTsTsTsTiTsTsTsTsTsT *; "=HEX '• *"&■ PRINT '■ INPUT2Z 

940*PRINT"T ) : INPUT ! 'HEXf '•" ;R$ : G0SU363 : PRINT"n5WsTsT:TéTs7sT;TsTs>=DEC''G : PRxHT : INr'b 1 4Z$ 

950 IFZZi="RUN"THENRUN 
955 G0T0921 

RERDY. 

<PRE-MON FöR VIC-20> 

8 REM : ###****#####*##****##*##*##**#*# 

1 REM '• PRE-MON FöR VIC-20 _.-#**** 

2 REM:******************************** 

5 F0RN=711T0724 

18 RERDR : FOKENR 1 NEXTN 

28 BRTR163.68. 141.138.2.163.35.133.52.133.56.32.56.253 

25 REM : PRE-MON RESERVERRR BRSICRRERN FöR SJflLVR PROORRMMci . 

RERDY. 

<KONVERTERING TILL VIC-20<MONITOR>> 


8 fem : ******************************** 

1 REM:#****< MONITOR FöR VIC-20 >*##** 

2 FEM:********************************. 

3 IFPEEK<673>=16STHENFRINT" 7 / '■ P0KE35373.25 : G0T03 _ 

4 P0KE36R79.25 : P0KE52.35'F0KE56.35 : PRINT"!!”;"NRIT FOR LORDiNO 

5 F0RN=725T0754 : RERDR POKcN.R NEXTN-GGTuS ^ „ 

S DRTR162.0.133.238.2.157.8.13.232.2*4. A o.*tVj.o., ö.äw.*-. 

7 DRTR8.13.13.0.3.158.52.54.50.43.0.0.8 

8 GOR! J3380 : FR I NT " IT’ _ 

188 PRINT"T■L=4620 : PRINTTRB(S)"R3SEMBLER”•FRINTTRBCS) 

1 11 P0KE24573.34 = GOTO403 


•PRINT 
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308 FORv-67370709 '■ READA : POKEV.• R : NEX7V 

301 FORN*158727016936 

302 REPOR:FQKEN, fl:NEX7N 

303 FOR1=1715270173i8 

304 RERIifi: POKEI, fl: NEX71 

305 0070375 

306 DflTA169,1,133,43, 133.172.169.18.133-.44.133.173 

307 DRTR141.130.2.169.3.133.45.169.8.133.46.3 

308 DA7fll69,8,133.45.169,3.133.46.169,68.76,243.2 
358 Dfl7A169,3,133,6,169.61,133 

351 DR7A1,i63,255,162.3.189,249 

352 ..‘fl i R95,3ci, S.Y, 6 7, ii09,3.243 

353 Dfl7fli5,i65,1,20i,67,208.6 

354 DA7A169,94,i41,253,95,96,76 

355 BA7A18,67,232,224,4,243,3 

356 BA7A76,12,67,32,62,67,177 

357 Iifl7A0,157,249,95,232,224,7 

358 DR7fi248,3,76,45,67,9S,192 

359 DA7A255,238,5,i68,3,233,1 
368 D.A7AS6,233,96,234,234,234,234 
361 DRTR234,234,234,169,3,133,3 
862 DA7fli69,61,133,1,163,255,162 

363 DA7A8,189,249,95,32,52,67 

364 BA7A289,8,248,3,76,93,67 

365 DA7A232,224,2,243,3,76,92 

366 Iifl7A67,32,62,57,169,4,289,8 

367 IIA7R16,6,32,156,67,76,90 

368 BA7R67,177,0,157,249,95,32 
359 IiRTA156,57,32,156,67,32,156 
373 DA7A67,177,8,232,157,249,95 

371 DATA224,6,240,3,76,i39,67 

372 DATA96,192,0,203,5,160,255 

373 DR7A193,1,96,136,96 

375 F0RT=755T0765 : REFOR : POKET,R : NEXT7 
375 RE7URN 

37(' DATA133,44,141 , 138,2,169,1,133,43,169,95 

430 P0KE245S9, ASC<M$) ■' P0KE24578, ASC< MID*(M$,2,1)) 

431 P0KE24571, ASC < MI B$ C M$ ,3,1)): PQKE24572, RSC ( RI GHTf <M$,1)) 

402 SYSi7132 : K$=CHR$(PEEK < 24573))+CHR$<PEEK<24574)) 

483 IFPEEK(24573)=94THENL=L-1=PRIN7"ilESI? T ■ CL0SE9 : 0070132 
434 RE7URK 

485 P0KE24569, ASC):POKE24570,RSC<RIGH7$CC*,1)) 

436 SYS 1 7 232 : D$=CHR$ ( PEEK < 24575))+CHR* < PEEK (. 24574)) +CHRt < PEEK C 24573)) 

437 D*=D$+CHRt<PEEK<24572)) 

438 M-PEEKC24571) 

439 RE7URK 

413 REM : ÄNDRA ALLA ' TABBAR •' I RVSHI77E7 533-599 
700 PR:N7 ,! T;' , SAVE Fin DISK./TAPE" 

713 : NPU7 ’• ENDADDR. < KEX$*i)", u $■ ■ SYS725 
fiW P0KE698,PEEK(45) : P0KE732,PEEK<46) 

733 R$=R19HT$<u$, 2) : G0SUB63 '• P0KE689, G : A$=LEF7$<Ut, 2) : GQSUB58 : FQKE593, G : SYS673 

745 rem : ****************************** 

750 REM : Ä7ERS7RR7A M0NI70R MED SVS6S7 


REM: ****************************** 


READY. 
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Nybörjarskolan 


Del 6 


Då var det dags att ta tjuren vid hornen igen och kasta sig in 
i BASIC’s ljuvliga värld. Som vanligt kan vi inte svara för de 
följder som dessa sidor kan för den mer erfame programme¬ 
raren och uppmanar alltså dig som tycker att du kan det här 
med BASIC att hoppa över de följande sidorna. 1 det förra 
numret så tittade vi på de möjligheter den sk IF...THEN 
strukturen gav oss. Med hjälp av denna så såg vi att vi kunde 
göra en test och fatta olika beslut beroende på utfallet av 
testen. 


Subrutiner 

Subrutiner kan man se som PROGRAM 
1 PROGRAMMET. En subrutin kan t ex 
vara ett antal BASIC rader som väntar på 
att användaren (den som sitter och 
knapppar och knäpper) skall trycka på en 
knapp och sedan returnerar den tecken 
(den knapp) som ”Nisse vid terminalen” 
tryckte ned. En subrutin som utför just 
detta kan se ut så här: 


=,00 PEM **##**VäNTR OCH Tft IN TECKEN 
5lÄ PRINT"TRYCK Pft EN TRNGENT! " 

520 GET fl* IF flf="" THEN 520 
530 RETUPN 


Denna subrutin tar in ett tecken från 
tangentbordet i A$. Dvs om man trycker 
ned ” L” så kommer A$ bli lika med ” L”. 
Om däremot ingen tangent trycks ned så 
returneras en TOMSTRÄNG som vi re¬ 
dan tidigare har sett och i detta fall blir 
A$ = 

IF...THEN satsen kontrollerar, som vi 
också tidigare har sett, om någon tangent 
har tryckts ned. Har den inte det så sker 
ett hopp tillbaka och ett nytt försök att ta 
in ett tecken görs. 

Till slut kommer antagligen ”Nisse vid 
terminalen” att trycka på en knapp och 
programmet fortsätter då till rad 530 där 
vi har RETURN. Detta är det ena av de 
två magiska orden när det gäller subruti¬ 
ner. 

Om du har slagit in programmet ovan så 
testa och kör det! 

Om du ser får du ett felmeddelande se¬ 
dan du tryckt på en tangent efter den inle¬ 
dande frågan. 

Detta felmeddelande talar om att du 
kört en subrutin utan att ha ANROPAT 
den genom att använda det andra magi¬ 
ska ordet: 

GOSUB 

Både GOSUB och RETURN måste 
finnas med när man skriver subrutiner på 
precis samma sätt som ett IF kräver ordet 
THEN och FOR kräver TO och NEXT 
osv. När vi i subrutinen kommer till rad 
530 så försöker programmet att göra ett 
hopp tillbaka till ordet efter det där anro¬ 


pet av subrutinen skedde. Låt oss titta på 
detta. Lägg till: 

10 GOSUB 500 

till ditt program dvs programmet får 
utseendet: 


10 GOSUB 500 

50C' REM #*###*VäNTfl OCH Th IN TECKEN 
5tft pptnt-TPVCK Pfi EN TRNGENT'" 

520 C,ET Rf IF Rt='"' THEN 520 
530 RETURN 


Kör programmet åter igen! 

Samma fel fortfarande eller hur? 

Skillnaden den här gången var bara att 
man fick en uppmaning att mata in ett 
tecken två gånger. 

Ser du vad vi gjort för fel? 

Ja just det. Vi har glömt att skriva END 
efter subrutinen så att programmet stan¬ 
nar innan vi kommer ner hit. Vi lägger 
alltså till 

20 END 

och vårt lilla program får utseendet: 


i ca GOSUB 500 
END 

500 REM äNTA OCH TA IN TECKEN 

S10 PPINT"TRVCK Pä EN TANGENT»” 

520 GET R* IF P*= ,# " THEN 520 
530 RETURN 


Kör det åter igen. Inga felmeddelanden 
den här gången eller hur? 

Frågan är nu bara hur det hela funge¬ 
rar? Ändrar vi rad 10 till: 

10 GOTO 500 

så vet vi sedan förut att GOTO hoppar 
till rad 500 och fortsätter att köra pro¬ 
grammet bara med denna ändring så får 
vi återigen det, numera, ganska vanliga 
felet. TESTA! För att få det hela att fun¬ 
gera tillfredställande får vi ändra rad 530 


också så att vi får ett hopp tillbaka. Vi tar 
alltså och ändrar rad 530 till: 

530 GOTO 20 

och programmet har fått utseendet: 


10 GOTO 500 
20 END 

500 PEM ***##*VäNTfl OCH TR IN TECKEN 
510 PRINT M TRYCK PS EN TRNGENT!" 

520 GET Rf IF Rf="" THEN 520 
530 GOTO 20 


Kör du programmet igen fungerar det 
precis som vårt tidigare exempel. Vad 
skiljer nu de två åt? 

Med GOSUB radnr så får vi tydligen 
ett hopp till det radnr vi ger precis som 
GOTO radnr. Om vi använder GOTO 
och hade en RETURN i uttrycket så fick 
vi dock inte programmet att hoppa till¬ 
baks och vi fick istället ersätta RETURN 
med GOTO 20 för att få detta att ske. 

GOSUB hoppar alltså till det radnum¬ 
mer där en subrutin förväntas ligga. Den¬ 
na subrutin skiljer sig från andra delar av 
programmet så tillvida att det avslutas 
med BASIC ordet RETURN. Detta ger 
ett hopp tillbaka till det BASIC ord som 
finns efter den GOSUB som ”kallade 
(ANROPADE, HOPPADE TILL) sub¬ 
rutinen. I vårt exempel så fanns dock GO- 
SUB’en på en egen rad och därför hoppa¬ 
de programmet till raden efter anropet. 
Om du ändrar programmet till: 


10 GOSUB 500 PRINT Rf 
20 END 

500 REM ##*###VHNTfl OCH TR IN TECKEN 
510 PRINT"TRVCK Pä EN TRNGENT 1 ” 

520 GET Rf IF Rt="" THEN 520 

530 RETURN_ 

så bör även tvivlaren övertygas om att 
så är verkligen fallet. Kom alltså ihåg EN 
GOSUB SKALL ALLTID FÖLJAS AV 
EN RETURN. 

Varför i hela friden ska vi krångla till 
allt på detta sätt. Programmet ovan kun¬ 
de vi ha ju ha skrivit: 

500 PEM ♦♦»♦♦♦VjMTR OCH TR IN TECKEN 

510 PRINT"TRYCK PS EN TRNGENT!" 

520 OET Rf IF Rt= B " THEN 520 

530 END _ 


Det är helt riktigt. Som vanligt så över¬ 
förenklar vi naturligtvis programmen för 
att det ska vara lätt att förstå vad som 
händer. Du kan istället studera följande 
program: 


10 

20 

30 

40 

50 

60 

500 

510 

520 

530 

540 


PRINT"C SHIFT+CLP/HOME >" PEM RENSR SKäRMN OCH L?OG CURSCRN I TOPPEN 
pnp t = i to 60 

PR T HT '"OOP psKNPRE ="; I 

IP < j=i5 OR 1=30' OR 1=45 THEN GOSUB 500 

NEXT"I 

ENB 

ppf<l ++**♦*•,'aNTfl OCH TR IN TECKEN 
PRINT"TRVCK EN TPNGENT!" 

^pTnT"<SHIETtCLR/HOm!v''pÉH RENSR SKäRMN OCH U.GG CURSCRN I TOPPEN 
RETURN _ 


42 




































Som du ser så kallar vi på subrutinen 
tre gånger i programmet för att riktigt 
ordentligt kunna följa det värde loop- 
index har. Om vi inte hade använt oss av 
en subrutin så skulle programmet få ut¬ 
seendet: 


Nog måste man säga att det första 
programmet är lite snyggare. Man skall 
naturligtvis inte försumma den vinst i 
minnesåtgång som det förra ger heller. 
Subrutiner använder man sig alltså av när 
man har något i sitt programm som skall 
utföras flera gånger i programmet. Detta 
gäller naturligtvis inte om det som skall 
göras består av endast ett BASIC kom¬ 
mando eller om man kan göra det hela 
med hjälp av en loop. 

Några tips som kan vara bra att hålla 
sig till när man använder sig av subrutiner 
i sina program är: 

i) Inled alltid subrutinen med REM 
satser som talar om vad den aktuel¬ 
la rutinen utför. Detta är till ovär¬ 
derlig hjälp när några månader har 
gått och man vill göra ändringar i 
sitt program. Har du inte råd med 
det extra minne som går åt så gör en 
anteckning om de ingående ruti¬ 
nerna på ett papper och spar. Du 
kommer att få igen detta flera 
gånger om. 

ii) Ha endast en RETURN i varje sub¬ 
rutin. Dvs istället för att skriva: 


1000 

TF AX=1 

THEH 

RETURN 

1010 

IF HX=10 

THEN 

RETURN 

1 020 

IF RX=100 

THEH 

RETURN 

1030 

RX=flX#flX 



1040 

RETURN 



så skriv 




1000 

IF RX=1 

THEN 

1040 

1010 

IF RX=10 

THEN 

1040 

1020 

IF flX=100 

THEN 

1040 

1030 

AX=flX#AX 



1040 

RETURN 




Förutom att programmet blir mer lätt¬ 
läst så förenklar detta eventuella senare 
ändringar. 


iii) Använd subrutiner flitigt. På detta 
sätt så delar man upp det program- 
meringsproblem man skall lösa i 
många små enheter som var för sig 
blir enkla att lösa. 


Den del av programmet som anropar 
subrutiner med GOSUB brukar man ofta 
kalla HUVUDPROGRAM. Naturligtvis 
kan man också låta subrutinerna anropa 
andra subrutiner eller hoppa omkring på 
annat sätt. Man bör dock som vi påtalat 
tidigare begränsa sig i så stor utsträckning 
som möjligt från att hoppa omkring från 
den ena raden till den andra då program¬ 
met blir onödigt svårläst. Ett program 
som ser ut så här: 


10 GOTO 120 
20 FRIHT "KALLE" 

3fi GOTO 90 
40 PRIHT "KAJSA" 

50 GOTO 130 
60 END 

70 if 0=45 THEH 60 
30 GOTO 100 
9fi GOSUB 100: GOTO 40 
100 PRIHT "JOBBIGT" 
110 RETURN 
120 GOTO 20 
130 GOTO 60 


gör ingen lycklig även om det fungerar. 
Naturligtvis är inte målet att skriva ett så 
snyggt program som möjligt, utan att lösa 
den programmeringsuppgift man har 
föresatt sig att lösa. Men det kan aldrig 
skada att tänka till åtminstone lite grann. 

Två skumma kommandon 

Ibland kan det hända att man vill stoppa 
sitt program på en bestämd rad för att se¬ 
dan fortsätta igen. För detta ändamål så 
har man BASIC-ordet STOP som stop¬ 
par exekveringen av programmet på den 
rad den står och ger meddelandet 
BREAK IN radnr. 

Vi kan testa detta genom följande 
program. 


i£i 

FOR 1 = 

1 TO 100 

30 

PRI NT 

I 

40 

NEXT 


50 

STOP 


60 

FOR 1 = 

100 TO 1 STER -1 

70 

PRI HT 

I 

30 

NEXT 



Kör du detta program så stannar det på 
rad 50 och 

BREAK IN 50 skrivs ut. 

Skriv nu 
CONT 

och tryck på RETURN. Programmet 
fortsätter eller hur? 

Detsamma gäller om man trycker på 
tangenten märkt RUN/STOP kanske av 
misstag. Skriv CONT och tryck RE¬ 
TURN och programmet fortsätter som 
om inget har hänt. Du kan testa detta i 
programmet ovan genom att trycka på 
RUN/STOP direkt efter det att du startat 
programmet. Observera att det inte går 
att återstarta ett program som du editerat 
i dvs där du har ändrat om i programmet. 
Däremot så går det utmärkt att t ex printa 
variabler som du vill veta värdet hos eller 
utföra andra kommandon i direkt mod. 

Några Tips 

1) Om du vill ta bort en rad så skriv rad¬ 
nummer <RETURN> 

och raden försvinner. 

2) Om du vill flytta cursorn till början av 
nästa rad på skärmen utan att slå en 
RETURN dvs utan att tala om för da¬ 
torn att det som står på raden ska be¬ 
handlas. 

Håll SHIFT nedtryckt och tryck på 
RETURN. 

3) Om du vill flytta en rad till ett annat 
ställe så skriver du bara ett nytt rad¬ 
nummer och trycker sedan på RE¬ 
TURN. Du har fått en kopia på denna 
rad. 

4) Om du har en BASIC rad som du är 
osäker på om du kanske behöver sena¬ 
re men vill ta bort för tillfället. Sätt en 
REM som första BASIC ord på raden. 
Detta REM kan du sedan ta bort om 
du skulle behöva raden igen. 

5) Om alla rader på skärmen helt plöts¬ 
ligt blivit fördubblade. Gå då genast 
till sängs. Du har antagligen suttit ett 
par timmar för länge vid datorn. 

I nästa nummer ska vi titta på de olika 
variabeltyper som vi har tillgång till hos 
VICKE. Som vanligt vill vi uppmana alla 
som har synpunkter på nybörjarskolan 
att höra av sig till redaktionen med ett 
brev eller vykort. Det kan vara allt från en 
regelrätt utskällning till önskemål om 
något du vill att vi ska ta upp. 



PR TNT" •' SHIFT+CLR/HOME > " REM 

REHSfi 

SKä.RMN 

OCH 
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FOR !=1 TO 15 
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PRIHT "LOOP PaFNPRE ="■I 








40 

ne: t i 








50 
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70 

PPINT"•SHIFT+CLR/H0ME>" REM 

REHSfl 

S? ?RMN 

OCH 
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CURSORN 
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80 
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NEXT I 
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1 30 

PPINT"■SHIFT+CLR/HOME■" REM 

REN3P 

SKäPMN 

OCH 
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CURSORN 
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140 

FOR 1=31TO 45 
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NEXT I 
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Jyrki Hookanen tycker att VIC rap¬ 
port är en intressant tidning och har 
skickat in ett spelförslag. Det är ett 
bilspel med både fart och spänning, 
och rekommenderas från 9 år. CAR- 
RACING kan köras med en oexpan¬ 
derad VIC 20. Spelet går ut på att köra 
banan runt så många gånger som möj¬ 
ligt under en minut. Du har fyra växlar 
att utnyttja. Vid kollision övergår 
växeln automatiskt till neutral. Spelet 
är spärrat mot baklängeskörning ge¬ 
nom mållinjen, vilket är ganska lo¬ 
giskt. Det kan vara ganska knepigt i 

1 rem**************** 

2 REM* BV J.HONKHNEN* 

3 REM* CDFYRIGHT 84 * 

4 REM*#****#****#***# 

8 Z=0=X=0 : Q=0=Q=0 
10 PRI HT" 23" 

13 TI$="000000" 

15 P0KE36B73..9 

17 E-36877 

18 P0KE 36878,5 
20 W=3S379 
25 C=363?6 
30 D=300 

49 

50 pr i nt " rmmmmMmm 
53 print":i mm 

55 PRINT"TMM 

56 PEINT"TMS2 

57 pri nt u rm W> 

60 PRI NT " ni? 

62 PR I NT " TE? 

65 PRINT" TM 
70 PRINT"7M-? 


början, men du kommer nog snart pä 
tekniken. När du blir proffsig så kan 
du ändra banan till en högre svår¬ 
ighetsgrad. 

Programförklaring: 

rad 8: nollställer olika variabler 
rad 10-18: nollställer tiden och byter 
färgen till svart samt sätter på voly¬ 
men. 

rad 20-25: ger värde år ljudvariablar. 

rad 49-133: ritar planen, märk dock att 

de sista raderna pokas för att undvika 

att skärmen börjar rulla. 

rad 135: känner efter om växeln är 

neutral. 

rad 150: testar om bilen har kolliderat 
med väggen. 

rad 155: känner efter om man har pas¬ 
serat över mållinjen, 
rad 152-153: skriver och känner efter 
om tiden är en minut, 
rad 156: skriver ut antalet körda varv. 
rad 157: kontrollerar om man har pas¬ 
serat halva varvet. 


rad 150-220: huvudloop 
rad 160: ritar ut bilen, 
rad 170-200: kollar om någon tangent 
är nertryckt och ändrar värden, 
rad 203-208: stänger av ljudet och 
väntar en stund beroende på vilken 
växel som är inne. Därefter sätts lju¬ 
det på igen. 

rad 210: beräknar skärmpositionen för 
bilen. 

rad 400-435: ändrar färger och sätter 
igång buller. 

rad 436: stänger av ljudet. 

rad 440-450: neutraliserar växlarna 

samt ritar ut bilen. 

rad 500-512: skriver ut ditt slutresultat 
och högsta resultat samt väntar på att 
du skall trycka på "s”. 
rad 600: ökar varvantalet, 
rad 700: passering av halva varvet. 

Variablar: 

E = ljudet (bruset) 

Z = varv spärren 
X = riktningspekare 
O = bilens position 
O = antal varv 
W = färgen 
C = ljudet 
D = växeln 

Du styr åt vänster med : 

Du styr åt höger med ; 

Du styr upp med a (snabel-a) 

Du styr ner med / 

Om du har Å, Ä. Ö sats så skriv om 
följande rader. 


pr i nt " TimmmmMMmmmMMmm 


w 

w 


Bi % W' 

IS» 


»*’ -J 

PRINT".T88* 

mmmmm 


75 

PRI nt "mas® 

mmmm 


77 

F'R I NT " TWSMMi 

s§ mmm 

m" 

79 

pri nt" rmm 

'mmmm 

m n 

82 

PRINT" 7W%m 

wmmmm 

w 

85 

PRINT"H» 


W' 

87 

PRI NT "TIM 

mmmmmm 


90 

PRI NT ".TM 

mmm . m 


92 

PRI NT "TIM 

mm . m 

m" 

95 

PRI NT "TIM 

m 

W' 

97 

PRI NT ".TM? 

. ^ 

w 


38~P0KE€ti 62 t1 02 : P0KE8163, 102 

102 PQK.E8133, 102: P0K.E8134,102 : P0KE8163,102 


180 IFfi$="ö" 
190 IFfi$="S" 
200 IFH$="H" 

THEN X=-l 
THEN X=-22 
THEN X=1 

RERDY. 



Jag hoppas att detta spel kan ge dig 
mycket nöje. 


:P0KE3155,102 : PGKE8156,102 = PQKE8154 


82 

103 P0KE8157,102 
106 FQRI=1TQ5 
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108 P0KE8141+I#102 
103 NEXTI 
112 F0RI=1TQ22 
124 P0KE8163+1/102 

126 NEXTI 

127 F0KE8141 > 102 
130 F0RI=1TQ3 

132 P0KE81 13+1j 102 

133 NEXTI 

1 34 REmwMMmMmwmwww* 

135 IF2=1THEN 440 

150 IFPEEK 7757+0) = 102THEN GUTQ400 

152 PRINT"ä", TIJ 

153 IFTI$=>"008100"THENFDKEC,232 : FQRT=1TD700 : NEXTT : PDKEC, 0:PDKEEi 0:DDTO300 

155 I FPEEK (7757+QJ =33THENP0KE7757+Q, 93 •' DOTD603 

156 PR I HT " mTTsTsTsTsTsTsTsTsl "i 0 

157 IFPEEK(7757+Q}=46THENFDKE C7757+0 )> 46 = BDTD700 
160 PDKE7757+Q..81 

170 GETfl$ : IFR$=V"THEN X=22 

171 IFfl$="M"THENB=140 
173 IFfl$="«"THENH=50 
175 IFHf«"ll"THEND=25 
173 IFflf="H"THEND=8 
130 IFH$=" : "THEN X=-l 
130 IFfi$="B"THEH X=-22 
200 IFfl$=";"THEN X=1 
203 PDKEE,0 

205 FORT =1TDD ; NEXTT 

207 P0KE7757+Q,32 

208 PDKEE,232 
210 Q=0+X 
220 GOTO150 

333 vEmwwmwwmmwwwM 
400 PRI HT "73" 

402 PÖKEE,232 

403 FOR1=1TQ3 
405 POKEN,40 

410 FDRT=1TD50 : NEXTT 

415 PQKEW,31 

420 F0RT=1TQ50 : NEXTT 

425 POKEW,3 

430 FDRT=1TO50 ; NEXTT 

435 NEXTI 

436 2=1 

437 PDKEE,0 
433 GOTO15 
440 X=0 
445 D=300 

450 PDKE7757+D;31 
460 GOTO160 

433 REriff********^#*******## 

500 PR I NT " □" : FRI HT " J!HMtiT;T:TiTiT;T:TJHriE QVER." 

505 IFO>HSTHEN H3=0 

506 PR I NT " WsTsTsFQRNG "; D 

507 PR I HT " WsTsTsTiH ICH SCORE";HS 

510 GETfl4f--IFRf*"S"THEN5l2 

511 GDTD510 

512 GOTOS 

600 0=0-1 : IFJ=1THEN 0=0+1 

610 J=0-GOTO150 

700 0=0+1:J=1:GOTO150 

REflDV. 
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ASSEMBLERSKOLAN 


I förra numret lärde vi oss hur man tog in data till re¬ 
gistren och la ut den igen. Vi tittade också på instruk¬ 
tioner som gav oss möjlighet att överföra data mellan 
olika register. Ännu har vi dock inte kommit så långt 
att vi kan konstruera några mer rutiner. Med den in¬ 
formation vi skall titta på i detta nr så kommer vi dock 
att komma så långt att vi kan konstruera program 
som också gör något nyttigt. Det första vi skall göra 
är att gå igenom ALLA adressmoder som finns på 
6502:ans (6510) repertoar så att vi har detta gjort en 
gång för alla. _ 


6502:an anses ha den mest avancerade 
uppsättningen adressmoder. Detta har 
gjort att denna processor nog tillhör de 
svåraste att lära sig. 1 gengäld så blii 
det mycket lätt att lära sig en ny proces¬ 
sor sedan man en gång lärt sig 6502 as- 
sembler. Detta gäller speciellt MO- 
TOROLAS kraftfulla, och mycket po¬ 
pulära, processor 6809 som i stort bara 
utvidgar och ger en större frihet i as- 
semblerprogrammerandet. 

För dig som glömt vad ADRESS¬ 
MODER är för något så kan vi försöka 
oss på en definition. 

Antag att vi vill ladda akumulatorn 
med ett tal, d v s med data. Vi kan göra 
detta genom att låta den aktuella datan 
ligga efter objektkoden dvs 

LDA $3F 

som laddar akumulatorn med $3F. 
Detta är en adressmod. 

En annan möjlighet man kan tänka 
sig är att ladda akumulatorn med den 


data som finns lagrad i en minnesposi- 
tion t ex 

LDA $2000 

som laddar akumulatorn med innehål¬ 
let i minnespositionen $2000. 

Vi har redan tidigare tittat på tre oli¬ 
ka adressmoder nämligen 

IMMEDIATE 

Som verkar på det byte som ligger efter 
själva opkoden. Jmf LDA $3F ovan. 

ABSOLUT 

Som verkar på innehållet i en minnes- 
position dvs adressen till denna inin- 
nesposition anges efter opkoden. JMF 
LDA $C000 ovan. 

ZERO PAGE 

Vi har även tittat på detta specialfall 
som fungerar helt analogt med den AB¬ 


SOLUTA adressmoden men med den 
skillnaden att den adress som anges 
skall vara en SIDA NOLL eller ZERO 
PAGE ADDRESS. 

ABSOLUT,X 

Detta är en s k INDEXERAD adress¬ 
mod. Man använder här X-registret 
som ett OFFSET d v s ett tal som skall 
adderas till den adress man anger. 

LDA $2000,X 

kommer alltså att ladda akumulatorn 
med innehållet i minnespositionen vars 
adress erhålls genom att addera inne¬ 
hållet i X-registret med $2000. Om x- 
registret innehöll $10 när ovanstående 
instruktion kördes så skulle vi alltså 
laddat akumulatorn med INNEHÅL¬ 
LET i minnesposition. 

$2000 + $10 = $2010 

Som Du ser så kan vi med en och sam- 
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ma instruktion nå vilket byte som helst 
i området. 

$2000 

$2000 + $F = S20FF 

bara genom att ändra innehållet i X-re- 
gistret. Observera dock att X-registret 
bara har 8-bitars längd och INTE 16- 
bitar som hos de flesta andra processo¬ 
rer. Detta är dock inte den stora nack¬ 
del som det kan synas vara till en bör¬ 
jan då det finns ännu kraftfullare in¬ 
struktioner som kompenserar för det¬ 
ta. 


ZERO-PAGE,X 

är ett specialfall på ABSOLUT,X. Här 
skall alltså adressen vara en sida noll 
Adress. 

LDA $CO,X 

Laddar alltså akumulatorn med inne¬ 
hållet i den minnesposition som erhålls 
genom att addera. 

$CO + (X) 

(en parentes omkring ett register eller 
en adress brukar användas för att indi¬ 
kera INNEHÅLLET i registret eller 
adressen) 

ABSOLUT,Y 

Här använder vi innehållet i Y som 
OFFSEt istället för (X). För övrigt fun¬ 
gerar adressmoden helt analogt med 
ABSOLUT,X. 

ZERO-PAGE,Y 

Här använder vi innehållet i Y som 
OFFSEt istället för (X). För övrigt fun¬ 
gerar adressmoden helt analogt med 
ZERO-PAGE,X. 

INDEXERAD INDIREKT 

Detta är den minst använda adressmo¬ 
den på hela 6502:ans repertoar och na¬ 
turligtvis också den stökigaste. För att 
vi skall förstå hur den fungerar så tittar 
vi på ett exempel. 

LDA ($CC,X) 

kommer att ladda akumulatorn i den 
adress som erhålls om 

$CC + (X) 

adderas och vi sedan läser den adress 
som ligger lagrad här och laddar aku¬ 
mulatorn med innehållet i denna 
adress. 


STÖKIG??????? 

Antag att 

($CC) = $00 
($C1) = $F0 
($C2) = $19 
($C3) = $FE 
($C4) = $34 
($C5) = $CE 

och att 

($F0O0) = $01 
($FE19) = $02 
($CE34) = $03 

om (X) = 0 så kommer vi då att ladda 
akumulatorn med $01 ty 

$CC + $00 = $CC 

Denna position skall nu alltså inne¬ 
hålla en adress (på LÅG/HÖG format) 
som pekar ut den position som vi skall 
ladda akumulatorn från. 

I vårt fall så innehåller 

($CC) = $00 
($C1) = $F0 

Som alltså är adressen $F000 lagrad 
på LÅG/HÖG format. Innehållet i 
denna adress är $01 och alltså kommer 
akumulatorn att laddas med $01. 

OBSERVERA att vi måste ha (X) 
som är jämna multiplar på 2 dvs 
0,2,4,6,8,... 

Om vi t ex testar 

LDA ($CC,X) 
med (X) = $01 

så kommer vi att ladda akumulatorn 
med ($ 19F0) vilket med stor sannolik¬ 
het inte är det minnesinnehåll vi är in¬ 
tresserad av. 

Vad laddas akumulatorn med i in¬ 
struktionen ovan om (X) = $02 och 
(X) = $04? 

Två ytterligare saker bör vi notera 
hos denna adressmod 

1) Endast indexregister X kan an¬ 
vändas. 

2) Den adress som anges skall ligga 
på sida noll. 

INDIREKT INDEXERAD 

Detta är en MYCKET användbar 
adressmod som i mångt och mycket 
kompenserar för de trånga indexregi¬ 
stren. Dess assemblerform är i LDA 
fallet 

LDA ($02),Y 

Här laddas akumulatorn med inne¬ 
hållet i den adress som erhålls om man 
tar adressen som ligger lagrad på LÅG- 
/HÖG format med början på $02 plus 
innehållet i (Y) registret. Dvs om 


($02) = $2D 
($03) = $20 

och (X) = $10 

så kommer alltså akumulatorn att lad¬ 
das med innehållet i 

$202D + $10 = $202D 

Vi kan t ex tänka oss att vi har en ta¬ 
bell som börjar på adress $3000 där vi 
har lagrat 256 olika tal. Genom att lag¬ 
ra startadressen på LÅG/HÖG format 
på en sida noll adress t ex $02/$03 så 
kan vi genom att ha olika värden i Y-re- 
gistret ladda ett valfritt element i denna 
tabell. Du bör naturligtvis vara medve¬ 
ten om att det även Finns andra instruk¬ 
tioner än LDA som har denna adress- 
mod. 

När man talar om en adress som lig¬ 
ger lagrad i minnet så talar man ofta 
om en PEKARE eller VEKTOR. En 
pekare är en adress som pekar ut en 
speciell minnesposition medans en vek¬ 
tor är en adress om pekar på en assem- 
blerrutin. 

Slutligen så observerar vi att denna 
adressmod bara kan användas indexe- 
rad med Y-registret och att den pekare 
vi anger alltid skall ligga lagrad på sida 
noll. 

ABSOLUT INDIREKT 

Detta är en adressmod som bara finns 
för en enda instruktion JMP. Denna 
instruktion har samma funktion som 
BASIC:s GOTO med skillnaden att 
man i assembler hoppar till en adress 
istället för ett radnr. Den normala for¬ 
men är den absoluta. 

JMP $A000 

som alltså innebär att programkör¬ 
ningen, EXEKVERINGEN, efter den¬ 
na instruktion fortsätter på $A000. 
Dvs dess funktion är helt enkelt att 
ladda PC (programräknaren) med den 
adress som anges efter opkoden. 

Vid den indirekta moden så skall den 
adress vi vill hoppa till ligga lagrad i 
minnet, som vanligt på LÅG/HÖG 
format. 

Om 

($2000) = $DD 
($2001) = $60 

så innebär alltså instruktionen 
JMP ($2000) 

att programmet hoppar till $60DD. 

Att låta olika rutiner börja med ett 
sådant här indirekt hopp brukar kallas 
PATCHAR. Normalt pekar den adress 
som ligger lagrad i minnet direkt på 
den kod som följer den indirekta hopp 
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instruktionen. Men om man vill så kan 
man skriva om den rutin som skall kö¬ 
ras och ändra VEKTORN till den nya 
rutinens startadress. På detta sätt så 
har fortfarande den aktuella rutinen 
samma adress. 

Hos alla CBM maskiner är detta en 
teknik som används flitigt och man kan 
därför på dessa maskiner mycket en¬ 
kelt ändra funktionen för IRQ, SA VE, 
PR1NT eller någon annan rutin som 
normalt ligger lagrad i KERNAL 
(ROM). 

Som vi sa så finns den indirekta 
adressmoden bara för JMP med ett li¬ 
tet trick så kan vi dock erhålla adress¬ 
moden för alla instruktioner som har 
INDEXERAD INDIREKT. Genom 
att låta (X) vara noll så erhåller vi här 
helt enkelt en indirekta mod med de en¬ 
da kravet att adressen måste ligga lag¬ 
rad på sida-noll. 

IMPLIED 

Detta är en verkligen enkel adressmod. 
Den har ingen operand alls dvs opko- 
den följs ej av någon data. TAX t ex 
som vi tittade på i förra artikeln har 
denna adressmod. 

Här är det alltså enbart av opkoden 
klart var den data ligger som instruk¬ 
tionen skall verka på. 

AKUMULATOR 

Detta är helt enkelt ett specialfall av 
IMPLIED. Den enda skillnaden är att 
de instruktioner som har denna adress¬ 
mod även har andra adresseringssätt 
till skillnad från dem som använder sig 
av IMPLIED som bara har en möjlig 
adressmod. 

AKUMULATOR adresseringen in¬ 
nebär alltså att vi specificerar akumu- 
latorn som det ställe där opkoden hit¬ 
tar den data den skall verka på. 

RELATIV 

Avslutningsvis skall vi titta på denna 
mycket viktiga adressmod. 

6502:an har en grupp av instruktio¬ 
ner kallade BRANCH-instruktioner, 
som har denna adressmod som den en¬ 
da. Vi skall i nästa nummer gå igenom 
dessa instruktioer en efter en men all¬ 
mänt kan sägas att de testar en flagga i 
statusregistret och utför ett hopp om 
och endast om vissa villkor är uppfyll¬ 
da som då består i att flaggan är satt el¬ 
ler nollställd. 

Som Du inser så kan två saker hän¬ 
da: 

a) Villkoret är uppfyllt! Dvs ett 
hopp skall ske. 

b) Villkoret är EJ uppfyllt! Pro¬ 


grammet skall alltså fortsätta 
med insruktionen efter branch in¬ 
struktionen. 

Det hopp som sker görs ej genom att 
man anger den adress dit hoppet skall 
ske efter opkoden utan man låter istäl¬ 
let ett byte ligga här. 

Om detta byte är ett tvåkompliment 
så kan vi representera ett tal mellan — 
128—127 och genom att addera detta 
tal till PC så kan vi hoppa 128 steg bak¬ 
åt eller 127 steg framåt. Det första vi 
måste förstå är alltså hur man repre¬ 
senterar tal på tvåkomplimentform in¬ 
nan vi kan förstå hur detta går till. 

TVÅKOMPLIMENT 

Vi har i de inledande artiklarna i denna 
serie gått igenom talrepresentation hos 
datorer mycket grundligt men två¬ 
kompliment representation har vi inte 
tittat på. Tvåkompliment representa¬ 
tionen är helt enkelt ett sätt att repre¬ 
sentera negativa tal på binär form. 
Med ett byte kan vi ju representera ett 
tal mellan 0—255 d v s ha 256 olika 
bitkombinationer. 

Om vi låter en bit i det binära talet 
tala om tecknet hos detsamma så kan vi 
alltså representera tal mellan. 

—127—127 

Om vi använder bit 7 för att indikera 
tecknet hos talet och låter denna vara 
satt om talet är negativt så blir alltså 

°7o01111111 = 127 
och 

% 11111111 = —127 (istället 
för 255) 

Problemet med denna representation 
är bara att vi får två nollor 

%00000000 = +0 

°7o 10000000 = —0 (istället för 

128) 

Ett annat sätt, som precis som ovan 
använder bit 7 för att indikera tecknet 
är ETT KOMPLIMENTFORMEN. 
Här byter vi helt enkelt varje satt bit 
hos den positiva motsvarigheten mot 
en nolla och tvärtom. D v s 85 som bi- 
närt har representationen 

%01010101 = +85 

har ett ETT KOMPLIMENT som har 
formen 

%10101010 = —85 

d v s är i absolut representation lika 
med 170. Vi kan nu om vi vill låta detta 
betyda —85 istället. Bit 7 indikerar 
även här att talet är negativt när den är 


satt. Problemet med de två nollorna 
kvarstår dock. 

%00000000 
97o 11111111 

är båda representation av nollor. 

För att komma ifrån detta så inför vi 
TVÅKOMPLIMENTFORMEN. 

Ett tvåkompliment beräknar vi ge¬ 
nom att 

1. Ta ettkompliment av talet 

2. Addera ett till resultatet från (1). 
Vår reprsentation av —85 blir 

%01010101 = 85 
% 10101010 ettkompliment 
«Vo 10101010 + 1 = «Vo 10101011 

Bit 7 kvarstår som teckenbit. 

Vi har nu lyckats komma ifrån olä¬ 
genheten med att ha två nollor för tar 
vi ettkompliment av noll så får vi 

% 11111111 

och adderar vi ett till detta tal får vi noll 
igen. 

Eftersom den extra nollan försvann 
så har vi fått ett större område. Med 
denna form kan vi representera tal mel¬ 
lan 


—128—127 

då ettkomplimentets negativa nolla 
%11111111 nu kan representeras av 
— 1 . 

Antagligen tycker Du som de flesta 
andra att detta verkar jobbigt att be¬ 
räkna då man hela tiden måste sitta och 
omvandla på bitnivå. Detta är dock in¬ 
te nödvändigt. 

Vill vi veta vilket tal som represente¬ 
rar —85 så subtraherar vi helt enkelt 

256—85 = 171 

och vi har direkt tvåkomplimentet. 

‘Vo 10101011 = 171 

Forts på sid 55 


Tips, frågor och artiklar! 
Skriv till VIC rapport redaktion.! 

Du har väl inte glömt 
att vara med i vår tävling? 
Gör ett nyttprogram eller 
ett spelprogram! 

Annonsera gratis??? 

I VIC rapport förstås!!! 

Bli prenumerans på VIC rapport! 
Pg 84646-9 
120:—/år 
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I den tidigare artikeln om FORTH kunde du läsa om hur 
FORTH uppstod och hur det är jämfört med andra språk 
Denna artikel ska istället presentera hur programmering i 
FORTH går till. Inga tidigare kunskaper behövs! 


av Ola Johansson 


Som en liten repetition kan nämnas att 
FORTH tillkom på 1970-talet och dess 
grundare var en amerikan vid namn 
Charles H. Moore. FORTH finns att kö¬ 
pa till till båda VIC datorerna och kostar 
cirka 500:—. Jag rekomenderar boken 
”Starting FORTH” av Leo Brodie, Som 
är utmärkt för både nybörjare och för de 
som redan kan en del om datorer. Som 
framgår av titeln är boken skriven på en¬ 
gelska, så det är en fördel om du behär¬ 
skar det språket. 

Nu har det dock blivit dags att att fort¬ 
sätta berättelsen om FORTH. Vi börjar 
med att titta på hur datorn tar hand om 
det ordet som du har givit den. Om det 
verkar för komplicerat kan du hoppa 


så är det något fel. Detta meddelas genom 
att datorn skriver ut det felande ordet 
följt av ett frågetecken. Allt för att väcka 
eftertanke hos programmeraren. På sam¬ 
ma sätt går datorn igenom ord för ord tills 
den kommer till slutet av raden. Då kons¬ 
taterar den att den är klar för tillfället och 
talar om detta genom att skriva ut OK. 

Datorn är nu klar för ett nytt ”upp¬ 
drag”. Sammanfattningsvis kan man sä¬ 
ga att: 

1) Datorn läser in ett ord. 

2) Intepretatorn letar i ordlistan. 

3) Om ordet hittas där anropas EXE- 
CUTE som utför ordet. 

4) Ifall ordet inte hittas i ordlistan för¬ 
söker NUMBER översätta det till ett 
tal. 


stås). Det verkar kanske för enkelt, men 
det fungerar faktiskt bra om du inte har 
för stora tal. 

Det finns flera olika typer av heltal. 
Dels enkel precisionstal med eller utan 
tecken och dels dubbelprecisionstal, som 
kan fås med eller utan tecken. Enkelpreci- 
sionstal lagras i 16 bitar och dubbelpreci¬ 
sionstal i 32 bitar. Jag kan inte av utrym- 
messkäl gå in på vad detta innebär, men 
jag kan tala om att det röra sig om binära 
tal Fördelen med att inte tillåta tecken, ut¬ 
an endast ha positiva tal är att man kan 
använda den 16:e respektive 32:e biten 
som värdesiffra. Annars används den 
som tecken, på så sätt att en etta betyder 
negativ och en nolla betyder positiv. Den 
mest använda typen av heltal är de tec- 


OM FORTH — 

lär dig programmera 


över det och ta det efteråt, när du har tit¬ 
tat på hur programmeringen går till. 

Hur arbetar FORTH egentligen? 

Till att börja med kan vi anta att du har 
matat in en rad av ord till datorn och 
tryckt på return knappen. Frågan är då 
vad datorn gör med detta. Jo, den försö¬ 
ker helt enkelt ”förstå” det skrivna. Det 
gör den med hjälp av en del i språket som 
kallas för intrepretator. Den startar med 
att läsa in det första skrivna ordet, alltså 
fram till första mellanslaget. Sedan tar ett 
ord kallat EXECUTE över och försöker 
hitta ordet i ordlistan. Om det finner 
ordet så utförs de instruktioner som ordet 
står för. Om det inte skulle finnas ett så¬ 
dant ord, så får ordet NUMBER i uppgift 
att översätta ordet till ett tal. 

Skulle varken NUMBER eller EXE¬ 
CUTE hitta någon vettig betydelse i ordet 


5) Om varken NUMBER eller EXE¬ 
CUTE lyckas är det något fel och detta 
meddelas. 

FORTH använder heltal 

Jag nämnde i min förra artikel att 
FORTH använder heltal i sina beräkning¬ 
ar och att det kan ses som en nackdel av 
många. För att visa att man klarar sig ut¬ 
märkt med heltal ska jag nu närmare utre¬ 
da hur dessa fungerar och även tala om 
hur man kan simulera flyttal på olika sätt. 
Exempelvis kan jag redan nu beskriva ett 
enkelt sätt att få ”decimaltal” med två de¬ 
cimaler. Man multiplicerar alla tal man 
matar in med hundra. Du skriver t ex in 
talet 17,42 som 1742 och när resultat skrivs 
ut får du själv korrigera talen så att de får 
rätt antal decimaler (om du inte skriver en 
funktion som gör det automatiskt för- 


kenförsedda enkelprecisionstalen och 
med dessa kan tal mellan —32768 och 
+ 32767 användas. Dessa gränser över¬ 
vakas inte, så om du överstiger gränsen 
blir svaret helt enkelt fel. Inga felmede- 
landen skrivs ut. 

För att räkna med dessa tal finns de 
vanliga räkneoperationerna + —*och/. 
Alla dessa ord kräver två tal på stacken 
(om du inte vet vad stacken är för något så 
kan du läsa min förra artikel. Annars får 
du fråga någon som har FORTH eller en 
HP-räknare) och ger som svar ett tal. Det¬ 
ta är antingen positivt eller negativt bero¬ 
ende på vilka tal du räknade med. Om nå¬ 
gon av gränserna överskrids så meddelas 
inget om detta ,som sagt. Vid division kan 
tänkas att svaret ska bli ett decimaltal. 
Ska du dividera 21 med 5, som i FORTH 
skrivs 21 5 / , så får du svaret 4, trots att 
det borde vara 4,2. 
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För att få med bråkdelarna finns ett 
speciellt ord som heter /MOD. Detta ord 
ger dels svaret 4 och dels svaret 1, som ska 
tolkas som en femtedel. På detta sätt kan 
man utföra divisioner exakt trots att man 
”bara” har heltal. För att multiplicera 
ord med bråkdelar finns det ord som bl a 
kan användas för detta. Detta ord heter 
*/ och kräver tre tal på stacken. Om du 
vill multiplicera 63 med 2/3 (för att få sva¬ 
ret 42) så skriver du 63 2 3 */. Fördelen 
med att använda detta ord istället för att 
beräkna 63*2 och sedan dividera med 3 är 
att mellanresultatet vid multipluikationen 
kan bli upp till 32 bitar ,trots att du bara 
räknar med 16. Fördelen är uppenbar om 
du vill beräkna 3/4 av 30000. 

Stackmanipulering 

Efter att ha tittat på hur heltalen fungerar 
ska vi nu se närmare på hur stacken fun¬ 
gerar. Eftersom det är på stacken som alla 
tal skall skrivas och resultaten hamnar, så 
är den en central del i FORTH. Man kan 
faktiskt säga att FORTH är en stack. För 
att kunna utnyttja stacken maximalt 
finns det fler aord som man kan använda 
om man vill ”trixa” bland de tal som re¬ 
dan ligger där. För att exempelvis beräk¬ 
na kvadraten av ett tal så behöver man två 
sådana tal, som man sedan ska multipli¬ 
cera ihop. För att få två likadana tal an¬ 
vänder man ordet DUP. Detta ordet dup¬ 
licerar det översta talet på stacken. Det in¬ 
nebär att två likadana tal ligger överst re¬ 
spektive näst överst på stacken. Hur detta 
går till visas lätt med ett exempel: Vi defi¬ 
nierar ett ord som beräknar kvadraten av 
ett givet tal. Definitionen blir: 
KVADRAT DUP * ; OK 
och ordet används på detta sätt: 

4 KVADRAT . 16 OK 

Som synes markerar understrykning¬ 
arna vad du skriver och datorns svar 
kommer direkt efter, utan understryk¬ 
ning. Detta används för att skilja på kom¬ 
mandon och ansvar. Vilket underlättar 
läsningen av dessa. (Om du hoppade över 
första stycket är det lämpligt att läsa det 
nu.) 

Förutom ordet DUP finns det flera ord 
som påverkar talen på stacken. Några av 
dem är SWAP, som byter plats på de två 
första talen, DROP, som tar bort översta 
talet och ROT, som roterar de tre översta 
talen enligt nedan: 
före: 1 2 3 
efter: 2 3 1 
igen: 3 1 2 
igen: 1 2 3 

Vill du ha kontakt 
med någon VIC-klubb? 

Ring VIC rappports databas 
Tel 08-19 06 16 


Efter tre ROT ser alltså stacken ut som 
tidigare. ROT kan vara användbart om 
man vill utföra någon beräkning på tre 
tal, utan att de försvinner från stacken. 
Då ”roterar” man bara fram ett tal i ta¬ 
get. Utför beräkningen och roterar igen 
tills man har gått ett helt varv. För att 
kunna illustrerera de hittills presenterade 
orden har jag låtit nästa stycke bestå av 
exempel. Skrivsättet är detsamma som 
det jag tidigare har visat, dvs att det du 
skriver in är understruket och datorns 
svar kommer direkt efter, utan under¬ 
strykningar. Ibland har kommentarer in¬ 
fogats inom parentes, vilket är det sätt 
man skriver kommentarer på i FORTH. 
Några exempel 
42.42 OK 
4711 17 + , 4728 OK 
21 5 / . 4 OK 
21 5 /MOD . . 4 1 OK 
.”HEJ DU GLADE” HEJ DU GLADE 
OK 

: UPPHÖJT-T1LL-TRE DUP DUP * * : 

OK 

2 UPPHÖJT-T1LL-TRE . 8 OK 
17 42 . . 42 17 OK 

17 42 SWAP . . 17 42 OK 
: ÖKA-TRE-TAL-MED-FYRA 4 + 

ROT 4 + ROT 4 + ROT; OK 
4711 42 17 ÖKA-TRE-TAL-MED- 

FYRA ... 21 464715 OK 
: F(X) ( a b c — a + b*c) * +: OK 
(PARENTESEN OVAN VISAR DELS 

HUR STACKEN SER UT) OK 
(INNAN ORDET UTFÖRS OCH DELS 

EFTER. DET ÄR PA) OK 

(DETTA SATT MAN BRUKAR VISA 

HUR ETT ORD PAVERKAR) OK 
(STACKEN) OK 
1 2 3 F(X). 7 OK 

3 2 1 F(X). 5 OK 

Ytterligare ord 

Innan jag visar fler exempel ska jag be¬ 
skriva några ord som kan vara bra att ha. 
Först behöver vi ha en programslinga, 
som gör att datorn utför instruktioner fle¬ 
ra gånger, även kallat en ”loop”. Denna 
”loop” inleds med ordet DO och avslutas 
med LOOP. Före DO ska man skriva två 
tal, nämligen programslingans start- och 
stoppvärde. För att plocka fram detta 
värde i loopen används ordet I som fram¬ 
går av exemplen nedan. Andra lämpliga 
ord är några som sköter utmatning av text 
på bildskärmen. Vi har redan använt 
orden . (punkt) för tal och .”för text. De 
nya orden är CR SPACE, SPACES och 
EMIT . CR matar fram en ny rad, 
SPACE skriver ett mellanslag, SPACES 
skriver flera mellanslag och EMIT matar 
ut ett tecken. Ordet EMIT tar emot ett 
teckenvärde och skriver ut motsvarande 
tecken enligt en teckenstandard kallad 
ASCII. 


Fler exempel 

: RÄKNA 10 1 DO I . LOOP ; OK 
RAKNA 123456789 OK 
:RÄKNA 11 1 DO I .LOOP; RÄKNA 
ISNT UNIQUE OK 
RÄKNA 1 2 3 4 5 6 7 8 9 10 OK 
: ABC 91 65 DO 1 EMIT LOOP ; OK 
ABC ABCDEFGH1JKLMNOPQRS- 
TUVWXYZOK i 

NY-ABC 91 65 DO I EMIT SPACE 

LOOP 3 SPACES ; OK 

NY-ABC ABCDEFGHIJKLMNO 

PQRSTUVWXYZ OK 

Om du har FORTH själv rekomende- 
rar jag dig att experimentera friskt vid da¬ 
torn. Risken att du förstör något är mini¬ 
mal. Enda möjligheten att ”kvadda” da¬ 
torn är att skriva med en hammare. Detta 
rekommenderas inte. När du skriver defi¬ 
nitioner i FORTH så ska du försöka hålla 
dem så korta som möjligt och ge dem vet¬ 
tiga namn. Tänk på att en funktion får 
heta vad som helst, även ”$%&%$ om 
du skulle vilja det. Men som sagt, ge dem 
vettiga namn så att du förstår vad de gör 
bara genom att se på namnet. 

Tips (och övning): 

Skriv ord som byter färg på bilden och ra¬ 
men runt om, samt något ord för att gå in 
och ur ”reverse-mode”. Du kan tex kalla 
orden för BILD KANT och RVSON 
RVSOFF. I orden BILD och KANT kan 
det vara lämpligt att använda ordet C!, 
som placerar ett värde i en minnesadress 
(motsv POKE i BASIC). 

Prova att använda ordet BILD och 
KANT i en programslinga så att bilden 
växlar färg snabbt. Dessa ord kan tex se 
ut: 

: BLIP 16 0 DO I KANT LOOP ; OK 
: FLIMMER 0 DO BLIP LOOP ; OK 
1 FLIMMER OK ”blippar” en gång. 

3 FLIMMER OK ”blippar” tre gånger. 

Nästa artikel kommer att handla om 
hur man kan få programslingor på flera 
sätt samt hur datorn kan välja mellan 
olika altenativ. Till dess ber jag dig som 
har FORTH hemma att prova olika defi¬ 
nitioner i FORTH och se vad som händer. 
Var också nyfiken och skicka in frågor 
om FORTH till VIC rapport, så ska de 
besvaras i möjligaste mån. 
Sammanfattning: 

• FORTH tolkar din text med intepreta- 
tom 

• Intrepretatorn använder i sin tur 
orden EXECUTE och NUMBER 

• Det finns flera typer av heltal 

• De mest använda får vara mellan 
—32768 och +32767 

• Det finns flera ord för att hantera 
stacken 

• Skriv till VIC rapport och fråga om 
FORTH. 
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COMAL — BÄTTRE ÄN BASIC? 

När nu äntligen COMAL finns att få till VIC-64 i 
diskladdad version med beteckningen 0.12, är det an¬ 
ledning att ta upp presentationen av detta effektiva 
och lätthanterliga språk i VIC-rapports spalter igen. 

Dessutom väntar vi ivrigt att få se produktionsleve- 
ranserna av den nya plug-in-modulen, som innehåller 
den hittills allra bästa av alla COMAL-80-varianter, 

CBM COMAL-80, version 2.00. 


I COMAL kan man använda de två 
grundläggande reglerna för god pro¬ 
grammering, som angetts av Kerning- 
han och Plauger i deras bok ”The Ele¬ 
ments Of Programming Style”: 

SÄG VAD DU MENAR, ENKELT 
OCH DIREKT. 

VÄLJ VARIABELNAMN SOM 
KAN HÅLLAS ISÄR. 

När Börge Christensen och Benedict 
Löfstedt byggde upp COMAL utgick 
man från den interaktiva miljö som 
BASIC hade och dess enkla komman¬ 
don, men man lade till från PASCAL 
hämtade strukturer, som gör det så lätt 
att utforma sitt program i avgränsade 
block. Dessa block kan sedan byggas 
samman till hela program. 

Låt oss inte dröja utan hoppa direkt 
in i ett program, som kan visa oss för¬ 
delarna med COMAL framför BASIC. 

Vi antar att en arbetsledare säger till 
en arbetare: 

”Gräv sex hål för dessa staketstol- 
per” 

I ett formaliserat datorspråk kan 
detta omskrivas på två bestämda sätt: 

a) REPEAT( = upprepa) sex gånger: 
GRÄV ETT HÅL FÖR STAKET¬ 
STOLPE 

b) GRÄV ETT HÅL FÖR STAKET¬ 
STOLPE 

IF( = om) det är sista hålet 
THEN( = då)slutar du 
GOTO( = gå tillbaka till) FÖRSTA 
INSTRUKTIONEN 
I många språk, inklusive de som 
fortsätter i FORTRAN/BASIC-tradi- 
tionen får första alternativet följande 
utförande: 

FOR räknare = 1 TO 6 
gräv ett staketstolphål 
NEXT räknare 

Detta känns säkert igen av de flesta 
läsare som kan BASIC och FOR-sling- 
an är en av de sex viktiga elementen i 
programmering. Men antag att arbets- 
ledaren inte angav hur många hål som 
skulle grävas, utan bara sade: 


”Gräv hål för staketstolpar tills du 
når fältets slut” 

Motsvarande datorspråk skulle skil¬ 
ja sig litet: 

a) REPEAT 

gräv ett stolphål 

UNTIL ( = ända tills) du når slutet 
på fältet 

b) gräv ett stolphål 

IF du nått fältets slut THEN stop 
GOTO första instuktionen 
REPEAT/UNTIL-slingan är den 
andra huvudkonstruktionen vid pro¬ 
grammering och här har visats två myc¬ 
ket använda sling-begrepp. 

Men antag nu att vi vill ytterligare 
komplicera arbete och säga till vår ar¬ 
betare att han skall gräva djupare hål 
om marken är lös. Instruktionerna 
skulle kunna ges på många sätt, men 
arbetsledaren kanske säger: 

”Gräv stolphål till slutet av fältet. 
Där marken är lös skall du gräva ett 
60 cm djupt hål. Annars gräver du ett 
30 cm hål.” 

Detta kan formuleras i FORTRAN- 
/BASIC-stil så här: 

STIL a) 

1. IF marken är lös THEN GOTO 4 

2. gräv ett 30 cm hål 

3. GOTO 5 

4. gräv ett 60 cm hål 

5. IF du är vid fältslut THEN STOP 

6. GOTO 1 

I Pascal/COMAL-stil skulle struk¬ 
turen vara annorlunda: 

STIL b) 

REPEAT ( = upprepa) 

IF marken är lös THEN 
gräv ett 60 cm hål 
ELSE( = i annat fall) 
gräv ett 30 cm hål 
UNTIL du är vid fälstslutet. 

Visserligen kan man med vissa BA- 
SlC-varianter göra den första versio¬ 
nens struktur tydligare och mer läsbar. 
Men det står ändå klart redan av detta 


enkla exempel, hur tydligt språket i 
version b visar vad som händer i pro¬ 
grammet. 

Det kan kanske vara skäl att titta li¬ 
tet på de olika strukturer man talar om. 
Vi har tre mycket viktiga strukturer 
som används vid praktiskt taget all 
programmering: 

Vi har redan behandlat dessa två: 

REPEAT/UNTIL eller UPPREPA- 
/TILLS, 

IF/THEN/ELSE eller OM- 
/DÅ/ANNARS 

De tre andra är: 

WHILE-slinga där operationerna 
upprepas så länge som ett villkor är 
sant och där man kontrollerar villkoret 
i början av strukturen. 

CASE-strukturen där man har möj¬ 
lighet till olika utgångar beroende på 
svaret på en fråga om CASE-satsens 
villkor. Denna struktur liknar BASICs 
”ON xx GOTO”, men är kraftfullare, 
vilket kommer att visas i senare exem¬ 
pel i denna artikelserie. 

Den tredje strukturen är PROCE¬ 
DURER, på engelska PROCEDU- 
RES, dvs det som i BASIC/FOR- 
TRAN-terminologi kallas för subruti¬ 
ner och som i BASIC anropas med GO- 
SUB och radnummer, vilket kräver att 
man alltid håller noga reda på sina rad¬ 
nummer i de olika programavsnitten. 

Det som gör COMAL så effektivt är 
kanske ändå allt man kan använda än¬ 
da upp till 78 tecken långa namn och 
behöver inte längre kalla en variabel 
för kryptiska X3 eller ZP utan kan 
skriva ”Mammas’bästa’recept’på’ 
småkakor” om man vill. Varje tecken 
är signifikant, d v s tas med vid jämfö¬ 
relse mellan två variabelnamn — det 
betyder att ”Mammas’bästa’re- 
cept’å’småkakor” är en helt annan 
variabel än den tidigare. 

Vi kan jämföra BASIC med CO¬ 
MAL beträffande vilka strukturer och 
typfall som ingår i de båda språken så 
ser du fördelarna med COMÄL: 
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CBM 

BASIC 

COMAL 

SLINGOR 

REPEAT/ 

UNTIL 

NEJ 

JA 

WHILE 

NEJ 

JA 

FOR/NEXT 

JA 

JA 

VAL: 

IF/THEN/ELSE 

DELVIS 

JA 

CASE 

NEJ 

JA 

MODULER: 

PROCEDURES 

DELVIS 

JA 

LÄSBARHET: 

IDENTIFIERA¬ 

RE 

NEJ 

JA 


Som du ser ett ”ja” och två ”delvis” 
för BASIC mot hela sju ”ja” för CO- 
MAL. 

En ytterligare fördel med COMAL 
är att programmen automatiskt får in¬ 
dragning av programraderna efter de 


strukturer som används. Vi har försökt 
återge detta i exemplen med hålgräv¬ 
ningen ovan. 

En annan fördel är automatisk rad¬ 
numrering som ingår som en del i 
språket. Man behöver bara skriva AU- 
TO och trycka på [RETURN] så dyker 
första radnumret upp på skärmen och 
markören står och väntar på att första 
programraden skrivs in. Dessa rad¬ 
nummer används för editering och för 
att hålla ordning på programradernas 
ordningsföljd, men utnyttjas INTE av 
programmet. Man kan alltså inte göra 
som i BASIC gå från ett programav¬ 
snitt till ett annat genom att skriva GO¬ 
TO och ett radnummer! 

En av de viktigaste anledningarna till 
att man så kraftigt propagerar för 
sttrukturerad programmering är just 
detta att man inte kan hoppa hit och dit 
i programet med GOTO-satser. Det 


har den mycket stora fördelen, att CO¬ 
MAL är lätt att läsa och lätt att förstå, 
lätt att underhålla och lätt att ändra i. 
Genom att använda omnumrerings- 
kommandot RENUM kan man dess¬ 
utom återfå en snygg radnummerord¬ 
ning efter det att man har gjort tillägg 
eller strykningar — OCH MAN VET 
ATT INGA HOPPADRESSER HAR 
BERÖRTS! 

Men låt oss gå vidare och titta på 
programmering i COMAL. Nedanstå¬ 
ende första två program är ganska enk¬ 
la men läsaren bör uppmärksammas 
hur användningen av långa, menings¬ 
fulla variabelnamn underlättar läs¬ 
ningen av programmen. Därtill komer 
möjligheten att få alla COMAL-ord 
med stora bokstäver och alla variabel¬ 
namn och andra identifierare med små 
bokstäver. 


PROGRAM 1: 



PROGRAM 2 


3310 

DIM SUEST-f 2F 

iBJ-s Or 18. 

EE£f OF i Du flfch i. i-m Ur ii) 

0020 

SUBSTt'=" C3LI3U 



0038 

hDJS ="GRVM. ' 



3948 

'•'EREf =" nr ” 




MENING* =SUFST 

ERr £+iiD.' T 


3860 

FRINI MEHINGf 




Det tredje programmet visar att CO- *) OBS! COMAL omvandlar NEXT 
MAL har, precis som BASIC, FOR-_ till ENDFOR och lägger till slingans 
slingan. Men lägg märke till hur effek- identifierare när programmet körs med 
tiv indragningen av raderna gör läs- RUN. 
ningen och hur skrivningen med 
små/STORA bokstäver också under¬ 
lättar. 


PROGRAM 3 
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Utskrift efter RUN blir: 

Vecka 3 börjar 

Det fjärde programmet illustrerar en 

Vecka 1 börjar 

1 2 3 3 4 5 6 7 ...Vecka 3 slutar 

REPEAT-slinga i vilken en fotbollss- 

1 2 3 3 4 5 6 7 ...Vecka 1 slutar 


pelare springer med bollen ända till 
dess han råkar ur för en tackling, re- 

Vecka 2 börjar 

Vecka 4 börjar 

presenterad av ett slumptal mindre än 

1 2 3 3 4 5 6 7 ...Vecka 2 slutar 

1 2 3 3 4 5 6 7 ...Vecka 4 slutar 

0.2. 

PROGRAM 4: 



09:18 REPEhT 

8029 FRINI 'TFi ETT 
••3033 UNTIL RNB 1 2 

3 “EG. 


0035 PRI ST R-ira 

0049 PRI HT DU -:FL 

LRHr f 'JLlc * • • 


En möjlig utskrift skulle kunna vara: 

Program nummer fem svarar på ett 


Ta ett steg 

naturligt sätt på frågan: ”Hur många 


Ta ett steg 

gånger måste talet 1 dubblas för att bli 


Ta ett steg 

Ta ett steg 

Ta ett steg 

Ta ett steg 

större än en mijon?” 


Spelet är slut. 



PROGRAM 5: 



3010 TAL'=1; MILJON 
0028 REPEhT 

=1080900 


3830 T RL =TAL*2 
•O O 4 0 R A K N A R E - R AKhir 

RE-!-i 


0058 UNTIL TRLTMIwJON 


8066 PR INI PaKNRRE.;” 

BUEELERI .-iGPR ’ 


Det är ett välbekant faktum att en 

och i andra fall där det verkar naturli- 

Detta stämmer inte med program 5, 

väldefinierad FOR-slinga bör ta emd i 

gast är WHILE-slingan nödvändig el- 

där vi säger: 

beräkningen att den kanske inte skall 

ler önskvärd. Fotbollsspelaren, som 

REPEAT 

utföras alls. I t ex följande COMAL- 

tacklas så snart han får bollen tar inga 

- 

program kommer ingen utskrift: 

steg med den. Observera att vi i pro- 

- 

FOR k = 1 to 0 

PRINT k 

ENDFOR k 

gram 6 säger: 

WHILE (skälet för genomgång av 
slinga) 

UNTIL (skäl för att avbryta = sling¬ 
an) 

Å andra sidan måste REPEAT- 

- 


slingan alltid utföras minst en gång. I 

- 


sådan fal där detta inte är acceptabel 

ENDWHILE 


PROGRAM 6: 



3010 WHILE PHD 11 ■ ■ 1 

DO 


3029 PRINT "TR ETT 
3830 ENDWHILE 

STEG. ' 


8840 PRINT " NU FÖRLORADE L J BOLLEN■ ' 



I program nummer sju visar vi hur 
proceduren BYT används i en s k 
”bubble-sortering” av tio färger i bok¬ 
stavsordning. Läsare som känner till 


BASIC kommer att känna igen konst¬ 
ruktionen: 

IF (villkor) THEN (satser) 

Denna möjlighet finns också i CO- 


MAL, men den fullständiga satsen IF- 
/TEHN/ELSE ger värdefullare möj¬ 
ligheter. 
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rappt * 1 


PROGRAM 7 — BYTESPROCEDUR 


8810 

8828 

0038 

BIM FACK* i 10/ OF 13 

s • 


FOR RÄKNARE =1 70 10 DC 


0840 

READ FACK* ( RÄKNARE % 


085O 

ENDFOR RÄKNARE 

i ,• 


8078 

FOR KöRNING =1 TO 9 DC 


O03O 

FOR FAR' -1 f.0 10 -k.öRMING 

DG 

8098 

IF FACK*IPAR): FACK*1FAR- 

1. Ac. f < 

0188 

ENDFOR FAR 


8118 

ENDFOR KÖFHIHG 


8128 

i .i 


0 1 30 

FOR RÄKNARE =1 TT lö DG 


3148 

PRI,HT TAB<5' > FACK*TRäKMAFE: 

8158 

a 1 68 

ENDFOR RÄKNARE 

• i 

3TR;-ir!G2 

8176 

PROC B'VT ■■ REF STRÄNG 1* REF 

8 130 

DIM TI—F* OF 10 


8190 

TILLF* -STRÄNGI1 


8280 

STRÄNG1* -STEÄNG2* 


3218 

STRÄNG2* =TILLF* 


8228 

ENDPROC BVT 


0238 

t t 

t i 

ORANGE ' 

0240 

DATA "RÖD","BLÄ K "3RÖH"• 

8258 

DATA "AKVAMAR IH "•"I NB I Gu 1 



"HEM B>'T l-ACK* ( F AR > , FACK* < P AR+ 1> 


OLETT", ■ BRUN", 'LILfl",”MÖRKBRUN" 


Program åtta illustrerar hur man an¬ 
vänder 

IF/THEN/ELSE-konstruktionerna. 
Det visar också hur ett program kan 


återge en naturlig ”uppifrån-och-ner- 
åt” utförd analys med stegvis detaljök¬ 
ning. Det är lätt att se att om man vill 
räkna de olika slagen av tecken i en text 


så är det lättast att först skilja mellan 
bokstäver och icke-bokstäver. Detta 
utförs i huvudprogrammet och ytterli¬ 
gare detaljering sparas till nästa steg. 


PROGRAM 8 


0810 
8828 
8838 
8840 
0050 
8860 
8070 
8830 
8090 
8100 
81 10 
8129 
8138 
8148 
8158 


DIM TEXT* OF 180. TE'T 0- 1 
TEXT* ="MI TALAR BRR _HiIM 
VOKALER =S; KONSöf iAMTER =8 ■ 1 1F - 

FOR POÄNG =1 TO LEN-: TE .'-.TI TO 
TEC* =TEXT* < F OÄNG> 

IF TEC*>="A !| AND TEC* := -, L." THEO 
BOKSTAV 
EL SE 

ICKE ‘ BOKS T AV 
EN DIF 

EMDFOR FOäHö 

PR I HT '• 'OKALER" ’ 'ÖKALER" 

PRIHT KONSONANTER;"KONSONANTER" 


;OR =8, ANNAT =6 
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•7150 

PRI NT SIFFROR.: 

"SIFFROR 


0 170 

PRI NT HNNriT ■ "ft! 

-iim TEC,- EN" 


01 50 

. . ■+*:.***.*:* SLUT 

F 3 -iU 7UD- ROC-Rhf: 

:NET * 

0139 

PROC BOKS 3V 



0290 

IF TECT= ,i ii 1 ' 01 

R TEC £-■'£" 3- ‘£ 

:Ci = • : 1 

0219 

V jKhLER ‘ =V0i 

RLER+l 


*22 1 

EL3E 



02 30 

K UHsuNS'iTcR ' 

“KO 1- *b -T ifi: > i cR+l 


0240 

EN B IF 



0259 

ENHFROC BOKSTFi 

\i 


0250 

r t 



0270 

FROC ;U £ Buk 5 

TfiV 


) 

IF TECtC :i 

‘HEN _ 


0230 

IF TECT3- ,, 0“ 

■irll' TcCT 1= J ; 

'-fEri 

0300 

SIFFROR =SI 

-*ijR + i 


0519 

ELSE 



0329 

;• =hNNh 

T+l 


3330 

ENE IF 



3540 

ENE IF 



0359 

ENLFROC ICKE B 

OKSTh-.' 



****** 

3R 7*C-?="u ;i OR TEC*= "U" THEN 


Här har jag nu visat några inledande 
program, som visar hur väl COMAL 
fungerar som arbetsverkty, hur lätt de- 
tär att läsa och om du läsare skaffar dig 
en COMAL-diskett från någon Han- 
dic-återförsäljare och sätter igång själv 
kommer du att få stor glädje och nytta 
av din kunskap. I VIC-rapports spalter 


kommer att fortlöpande presenteras 
trevliga program och procedurer eller 
funktioner, som du kan använda i dina 
egna program, ändra och knyckla till 
så att de passar precis dina behov. Och 
det blir BÅDE lätt och roligt! 

Ytterligare upplysningar om CO¬ 
MAL kan erhållas som medlem i CO- 


MAL-KLUBBEN I SVERIGE, c/o 
Åke Fredriksson, Gustavsbergsgatan 
8, 431 37 Mölndal. Om du skriver, var 
snäll och bifoga svarsporto om du vill 
ha direkt svar. 

Åke Fredriksson 

Ordf. i COMAL-KLUBBEN I SVERI¬ 
GE 


Forts, frän sid 48 

VILLKORLIGA HOPP IGEN 

Genom att ange ett tvåkompliment tal, 
som skall adderas till PC, efter 
BRANCH instruktionen så kan vi allt¬ 
så hoppa 128 steg bakåt eller 127 steg 
framåt om det aktuella villkoret är 
uppfyllt. 

De flesta maskinspråksmonitorer 
typ V1CMON, 64MON eller liknande 
utför beräkningen av tvåkompliment 
talet och tillåter att man istället anger 
den adress dit man vill att hoppet skall 
ske. Detta gör det nödvändigt att be¬ 
härska tekniken att beräkna detta två¬ 
kompliment tal. För fullständighetens 
skull så visar vi dock två exempel på 
hur detta går till. 

BEQ 

är en instruktion som tillhör 
BRANCH-familjen. När processorn 
kör denna instruktion så tester den Z 
flaggan. Om Z flaggan är satt så adde¬ 
ras intruktionens andra byte, som är ett 
tvåkomplimenttal, till PC och pro¬ 
grammet fortsätter att köra på den nya 
adress som PC nu pekar på. Om Z flag¬ 
gan är nollställd så sker inget hopp 
utan programmet kör den instruktio¬ 


nen som ligger efter BEQ. Låt oss titta 
på ett program och gå igenom steg för 


steg vad som händer. 

SCOOO 

LDA SF000 

SC003 

STA $CC 

SC005 

LDA $00 

$C007 

BEQ $FC 

SC009 

STA $CD 

osv 



Om Du tittar på adress SC005 i ovan¬ 
stående program så ser Du att akumu- 
latorn laddas omedelbart med $00 det¬ 
ta betyder att Z flaggan sätts här och 
alltså är satt när vi kommer till BEQ. 
Eftersom Z flaggan är satt så vet vi att 
BEQ kommer att göra ett hopp. Frå¬ 
gan är bara till vilken rad. $FC är lika 
med —4 och när processorn adderar 
$FC till PC så pekar PC på SC009. Ad¬ 
derar vi dessa båda så får vi den effekti¬ 
va adressen $C005 dvs programmet 
kommer att hoppa tillbaka till adress 
SC005 och ladda in en nolla igen osv. 
Om vi ändrar programmet till 

SCOOO LDA $F000 

$C003 STA $CC 

$C005 LDA $FF 

SC007 BEQ $FC 


$C009 STA $CD 
osv 

så kommer Z flaggan INTE var satt när 
vi når BEQ och detta betyder att pro¬ 
grammet kommer att fortsätta med 

STA $CD 

När man beräknar det PC offset som 
skall ligga efter BRANCH instruktio¬ 
nen så räknar man alltså det antal steg 
som den nya adressen ligger på jmf 
med nästa opkods adress inte själva 
BRANCH-opkodens adress som man 
kanske skulle kunna vänta sig. Som 
sagt så är detta inte något man behöver 
bry sig om i normal fallet då Monitorn 
eller Assemblatorn sköter om det hela 
åt oss. 

Kom alltså ihåg att offset skall be¬ 
räknas från nästa instruktion inte från 
den adress som BRANCH instruktio¬ 
nen har. 

Detta var allt för denna gång. I nästa 
nummer så skall vi gå genom samtliga 
BRANCH instruktioner på 6502:ans 
repertoar samt lära oss hur man pro¬ 
grammerar s k LOOPar och liknande 
strukturer. 
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TIPPA 64 

Johan bergkvist har gjort ett 
program som han kallar 
TIPPA 64. Ni som är nybör¬ 


jare kommer säkert ha an¬ 
vändning av detta. Program¬ 
met är inte speciellt unikt 
men ger en inblick i hur 
POKE-kommandon kan an¬ 
vändas. 


TIPPA 64 är till för VIC 64 och tar 11 by¬ 
tes på en skiva ( floppdisk). Bakgrunden 
och ramfärgen blir brun med ljusgrön 
text. Man ska försöka få ut ett tal genom 
att satsa på ett tal. Datorn ger besked om 
det är för litet eller för stort. Enkelt. 


WtHJJY. 


t o •“•O 


1,9 


c i0 POKE 53280,9 POKE 
100 PRI HT "El” 

150 PRI HT "i!" 

170 PRIHT " 

200 PRIHT " 

250 PRIHT " 

300 PRIHT PRIHT 
400 PRIHT : PRIHT 

500 PRIHT " DETTA SPEL GfiRUT PA ATT DU SKA" 

6R0 PRIHT " FÖRSÖKA KLURfi UT VILKET TAL <1-250)" 
780 PRIHT " DATORH TÄNKER PA. DU SATSAR ETT TAL" 
:-,00 PRI HT " fii':H DATORN TALAR OM OM DET ÄR FÖR" 

A00 PRIHT " STORT ELLER FÖR LITET 


mm tippa 64 

* mmmmmmmm*" 

AV- .JOHAH 


BERGKVIST" 


1000 PRIHT:PRIHT•PRIHT " 
1100 PPIHTPRIHT " TRYCK 
1200 GET A* IF Af—"" THEN 
1300 IF A$="S" THEN 3000 
1400 IF Af="P" THEN 1550 
IS00 GOTO 1200 
1550 PRIHT 
1680 PRIHT : PRIHT ” 


TRYCK '?■' FÖR PRISLISTA. 
'S' FöR START." 

1200 


PRISLISTA 


i 630 

PRI HT 

1! 

t! 

1! 

il 

!! 

il 

rrrrrr " 

1650 

PRI HT 




1 700 

PRI NT 

" 1 : A PRIS 

RÄTT PA 

FAPSTA -ÄPSÄKET":PRIHT 

1800 

PRI HT 

" 2 : H PRIS 

: RÄTT PA 

2:A - 5 E FÖRSÖKET" PRIHT 

1900 

PRI HT 

" 3•E PRIS 

• RÄTT PA 

f. ; E - 10-E FÖRSÖKET " : PR IH 

2000 

PRI HT 

" 4 : E PRIS 

: RÄTT FA 

11 F - 20 E FÖRSÖKET" 

21 00 

PRI HT 

:RR{HT:PRTK 

T " TRYC3 

I päR THSTRUKTIOHER."• 

2200 

PRI HT 

" TRYCK ■" 

S- FÖR START." 

2300 

GET B 

f IF Bf="" 

THEH 2300 


2400 

IF Bf 

="I" THEH 1 

00 


2500 

IF Bf 

="S" THEH 2 

000 


2600 

GOTO 

2300 



3000 

pr r ht 

tl |t! 



30 J. 0 

LET P 

”0 



1 pri 

LET I 

= T HT <. RHD \ 1 :• 

*249 >t i 


3200 

PRI HT 

PRIHT "WS! 

SATSA!! 

" 


330O 
~i320 

3330 

3350 
3400 LET 
3500 
IbOO 
00 
iH0M 


IHPUT A 

PRI HT ; Pr: t HT ” DU SATSADE PA : " ; H 
FDR Q —0 TO 1500 ; HEHT Q 
PRI HT 


ii ♦'"Ul 

«. ai 

=P 4 1 


IF A 

T r 


3700 IF 


O- 

T 

fld 
H>! THEN 
M T PRI HT 


THEH 10000 
THEN 5000 


jS00 
! WWW 


o r, <pt p p 1 k( T r:> RIH T 
4000 GOTO 3300 
5000 PRI HT■PRIHT 


dit 

3 FlT SA 


TAL 

cu 


VAR FöR STORT," 

r;AU|- TT! I '• 

L !• ■* i 1L? i !- * •- « 


>J SA"! 


r TT '"ÄR LITET" 
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FICK F ö R S t A P R I s !!! ! 
HAR VERKLIGEN TUR !!!" 

" VRRSAGOD !! FÖRSTAPRISET- 


20•NEXTT 
3 POKE 53281,9 

12250 


5100 PRI HT "M TAL. SATSA IGEN.. 

5208 GOTO 3300 
10000 PRINT 

IF P=1 THEH 10107 
GOTO 11000 
FOR E=1 TO 200 
PUKE 53280,6 
PRIHT "ry'~ 

PRI NT = PRI NT - nij 
PRIHT•PRINT " DU 
PRINT:PRIHT‘PRIHT 
POKE 53280,1 
FOR T=1 TO 
HEXT E 
POKE 53280 
GOTO 30000 
PRIHT "h" 

IF P<6 THEH 
GOTO 13000 
PRIHT 

FOR E=1 TO 208 
POKE 53280,6 
PRI NT 

PRIHT PRIHT " 

PRINT : PRINT " 

PRINT : PRINT " 

POKE 53280,1 
FOR T=-l TO 10 HEXT T 
HEXT E 

POKE 53280,9 
GOTO 30800 
IF PO 8 THEH 13300 
GOTO l3660 

PRIHT:PRINT PRIHT « BU TOG VÖRT 2-E PRIS 
PRINT:PRINT " BU BEHÖVDE",P "SATSNINGAR" 
PRIHT:PRINT » GRATTIS i" 

FORT=1TO6Ö00 : NEXTT : GOTO 30908 
IF PC21 THEH 14000 
GOTO 15080 


19100 
10105 
10107 
10110 
10150 
10200 
10400 
1 0500 
10520 
10530 
10550 
10578 
10600 
1 1000 
12100 

12200 

C Er .Cj 

12260 
12 L r 0 
12280 
12360 
12400 
12500 
12510 
12520 
12539 
12550 
12608 
13000 
13100 
13390 
13400 
i 3580 
13550 
1 3680 


0000 KR. 


OJ!!! BU VANN 2 A PRISET 5080 KR." 
DU GISSADE RÄTT Pfl SATSNING NR",P 
BRAVQ !!!" 


1000 KR. 


1 370U 
1 4000 
14100 
14200 
14250 
14270 
i 4300 
! 5000 
15100 
1.5269 
153O0 

30000 

39100 
30200 

30300 
■;0 ■? • >0 

30500 
06:30 
30700 
"iPPFi'."-' 


BU FAR FJÄRDEPRIS : 100 !• 


PRI HT "2J" 

PRIHT PRINT'PRINT "K 
PRINT ">] GANSKA BRA..." 

PRJNT ; P; "SATSNINGAR BEHÖVDE DU." 
FORT-1TO6009 NEXTT 
GOTO -30000 

p p T K! T ""I" 

PR I HT : PRIHT - PRIHT " SYND. 

PPINTPRINT " DU DEHoVDE" 

F ORW=1T02500 : HEXTW 

pp t !-1 j i'"]" 

PRINT PR INT PRINT " VILL 


B! I p' P'..’ | IThH r,RIS. 
p " A N I !QAR. " 




"t-1 


n s, l , 

G-1. 


■n 


IF 


1" 


GET Sf 
IF S 

oo r i' r " "i" • 

r ’ . l. ji 

PRIHT " 

tor q=: t c 

PRINT"J3" 

END 


ST-' 


pr-, i . i ' 


' TUPK! 3020--1 

GOTO 100 






■ ic 
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MER OM COMAL 

Vi börjar med en repetition av COMAL-strukturerna. 

De är i huvudsak samma som förekommer i Pascal 
och du kommer att förvånas över hur du tidigare kla¬ 
rat dig utan dem! 


Första har vi villkorliga strukturer, där 
ett villkor avgör vad som skall ske! 

IF...THEN...ELIF...ELSE...ENDIF 

samt 

CASE...OF...WHEN... 

OTHERWISE...ENDCASE 


I dessa båda satsstrukturer avgör ut¬ 
fallet av ett test av det i satsen angivna 
villkoret vilken utgång som program¬ 
met skall välja. Observera att varje 
struktur har en ingång och en utgång. 

Så har vi villkorliga slingor, dvs 
upprepningssatser, där en procedur 
skall upprepas ett visst antal gånger, 
beroende på villkoret: 

REPEAT...UNTIL 

WH1LE...DO...ENDWHILE 

LOOP...EXIT WHEN...ENDLOOP 
(Denna finns ej i version 0.12) 

Till detta kommer en bestämd 
slinga, där antalet genomgångar är be¬ 
stämt på förhand: 

FOR...TO...STEP...DO... 

NEXT( = ENDFOR) 

Sist skall vi behandla de egentliga 
strukturmodulerna, funktioner och 
procedurer, där mycket kan ske inom 
respektive funktion eller procedur. 
Huvudskillnaden är att en funktion 
lämnar ifrån sig ett enda värde och en 
procedur kan kommunicera med flera 
variabler i ytterprogrammet. 

Procedurer och funktioner kan vara 
öppna eller slutna och en viktig sak är 
att de variabelnamn som används in¬ 
nanför en procedur inte är kända utan¬ 
för — det betyder att man kan använda 
samma namn i huvudprogrammet och i 
proceduren/funktionen utan att riske¬ 
ra sammanblandning! 


Modulerna är 1) FUNKTIONER: 

FUNC...REF...CLOSED... 

IMPORT...RETURN...ENDFUNC 

och PROCEDURER: 

PROC...REF...CLOSED... 

IMPORT...ENDPROC...EXEC 

Detta var repetitionen, nu skall vi 
mer i detalj behandla varje struktur 
och börjar med IF-strukturen: 


IF-strukturen 

I CBM BASIC finns en mycket förenk¬ 
lad forma av IF-strukturen. COMAL 
utökar den till en flerradig struktur, 
som även omfattar en ELSE-del. Nu 
kan du bestämma ett villkor för utvär¬ 
dering och om det är sant så kommer 
den första uppsättningen satser att ut¬ 
föras, men om det är falskt blir endast 
den andra uppsättningen satser (de 
som står efter ordet ELSE) att utföras. 
Det kan illustreras så här. 


IF (villkor) THEN 
Satser som utförs om villkor är sant 
ELSE 

Satser som utförs om villkor är 
falskt 

ENDIF 

Ett exempel: 

IF felTäknarejO THEN 
PRINT ”Du genomförde denna öv¬ 
ning med ”;fel’räknare;”antal fel.” 

PRINT ”Dessa fel visar dig avsnitt 
som du bör öva mer på.” ELSE 
PRINT ”Fantastiskt, inga fel i den¬ 
na övning!” 

PRINT ”Det är inte många som har 
klarat denna övning så bra!” 

ENDIF 


Indragning av satsblocken sker auto¬ 
matiskt när du skrivit LIST och tryckt 
[RETURN] och du ser hur de hjälper 
dig att klarare urskilja strukturerna. 
Strukturer kan kapslas i varandra och 
då kommer indragningarna att ange 
vilken inkapslingsnivå som gäller för 
strukturdelen. IF-strukturen ger också 
ett sätt att testa flera villkor inom sam¬ 
ma struktur med nyckelordet ELIF 
(betyder ELSE IF). Du kan ha så 
många ELIF-delar som du behöver — 
eller inga alls. ELSE-delen kan också 
antingen tas med eller ej. Den fullstän¬ 
diga IF-strukturen visas nedan med ett 
exempel: 

IF [villkor] THEN 
villkor 1—sant-satser 
ELIF [villkor2] THEN 
villkor2 = sant-satser 
ELIF [villkor3] THEN 
villkor3 = sant-satser 
ELSE 

satser om något av villkor 1-3 är 
falskt 
ENDIF 

Ett programexempel: 

IF noteringar[bank’besked THEN 
PRINT ”Ditt bankbesked visar att 
du har” 

PRINT ”mer pengar på banken än 
du själv noterat” 

ELIF noteringar]bank’besked THEN 
PRINT ”Du noterar mer pengar än 
bankens besked anger” 

PRINT ”Kontrollera om du glömt 
skriva upp någon utbetalning” 
ELSE 

PRINT ”Dina noteringar stämmer 
med bankens” 

ENDIF 

CASE-strukturen 

Ett flervägsval är möjligt i COMAL 
med CASE-strukturen. Det låter dig 
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lägga fram flera uppsättnigar satser, 
varje uppsättning kallad för ett ”ca- 
se”, d v s ett ”fall” för eventuellt utfö¬ 
rande. Strukturen inleds med ett ut¬ 
tryck (antingen numerisk eller ett text¬ 
uttryck) som skall utvärderas. Dess 
värde jämförs med de uttryck som är 
listade i början på varje fall. Om något 
uttryck stämmer överens kommer sat¬ 
serna i detta fall att utföras och resten 
av strukturen hoppas över. Om inget 
uttryck stämmer i något av fallen kom¬ 
mer de programsatser som finns efter 
OTHERW1SE (= i annat fall) att utfö¬ 
ras. Denna struktur ersätter den primi¬ 
tiva ON X GOTO [radl], [rad2], 
[rad3]... 

CASE [uttryck] OF 
WHEN [uttryckslista 1] 

Satser 1 

WHEN [uttryckslista 2] Villkorliga 
Satser 2 avsnitt 

OTHERWISE Alternativt 

Otherwise-satser avsnitt 

ENDCASE 

Ett exempel: 

CASE val§ OF 
WHEN ”H”,”h”,”?” 

EXEC instruktioner 
WHEN ”A”,”a” 

CHAIN ”ADDERA” 

WHEN ”S”,”s” 

CHAIN ”SUBTRAHERA” 
OTHERWISE 

PRINT ”Jag förstår inte ditt val.” 
PR1NT ”Du kan välja mellan:” 
PRINT ” A = Addera” 

PRINT ” S = Subtrahera” 

PRINT ” H = Hjälp = instruktio¬ 
ner” 

ENDCASE 

Villkorliga 

sling-instruktioner 

De flesta program har satser som skall 
utföras om och om igen. Det finns tre 
sätt att villkorligt hoppa ur sådana 
slingor: före inledningen av slingan, ef¬ 
ter genomgång av slingan eller någon¬ 
stans inuti slingan. COMAL har en 
speciell struktur som tillåter alla tre 
möjligheterna. 

REPEAT-slingan utför första sling- 
satsen och kontrollerar därefter det 
villkor som specificeras i UNTIL-sat- 
sen. Slingan upprepas till dess villkoret 
utvärderas till sant (TRUE). 

WHILE-slingan kontrollerar först 
villkoret. Om det utvärderas till falskt 
(FALSE) betraktas slingan som slut¬ 
körd och satserna överhoppas. Om det 


utvärderas till sant (TRUE) kommer 
satserna i WHILE-slingan att utföras 
och därefter kontrolleras villkoret om 
igen. 

LOOP-strukturen fortsäter att utfö¬ 
ra sina satser så länge som villkoret vid 
EXIT WHEN är falskt (FALSE). Den¬ 
na konstruktion finns ej i version 0.12 
utan endast i 2.00. 

REPEAT 

Satser 

UNTIL (villkor) 

WHILE (villkor) DO 
Satser 

ENDWHILE 

LOOP 

Satser 

EXIT WHEN (villkor) 

Satser 

ENDLOOP 

Några exempel: 

REPEAT 

INPUT ”Vad är svaret?: svar 
försök: + 1 

UNTIL svar = rätt’svar OR försök]2 

WHILE NOT EOF(infil) 

READ FILE infil: text$ 

PRINT text$ 

ENDWHILE 

LOOP 

READ FILE infil: namnS 
EXIT WHEN namnS = ’*SLUT*” 
pekare: +1 

vektorS(pekare): = namnS 
ENDLOOP 

Fast sling-struktur 

Ofta vill man utföra ett helt block med 
satser ett bestämt antal gånger. CO¬ 
MAL har strukturer som liknar BA- 
SICs FOR...NEXT. COMAL om¬ 
vandlar emellertid nyckelordet NEXT 
tiltl ENDFOR så att det står i samklang 
med övriga slingstrukturers avslut- 
ningsord. COMAL accepterar NEXT 
om man skriver det, men vid listning 
omvandlas detta av COMAL-tolken 
till ett ENDFOR såvida man inte ge¬ 
nom att ge ett speciellt kommando be¬ 
håller sitt NEXT. 

Syntaxen är: 

FOR 

[styrvariabel]: = [startvärde]TO- 
[slutvärde]STEP[stegvärde]DO 
Satser 

ENDFOR[styrvariabel] 

Delen ”STEPfstegvärde]” är vill¬ 



korlig och kan utelämnas. Om den ej 
anges, används stegvärdet 1 precis som 
i BASIC. Precis som i BASIC får du 
lov att skriva endast ENDFOR, utan 
att ange [styrvariabeln], den lägger 
emellertid COMAL-tolken till för dig. 
Observera att [styrvariabeln] jämförs 
med [slutvärdet] innan satserna utförs. 
Härigenom är det möjligt att hoppa 
över hela FOR-slingan helt och hållet. 

Till exempel kommer följande satser 
att överhoppas (alltså inte utföras ens 
en gång): 

början: = 1; slut: =0 
FOR temp: = början TO slut 
PRINT ”Nu är vi inne i FOR-sling¬ 
an.” 

ENDFOR temp 

Ett exempel på en slinga för läsning 
av 12 värden från datasatser och att 
lagra dem i en textvektor följer här: 

FOR månad: = 1 TO 12 DO 
READ månads’namn$(månad) 

PRINT ”Månad nummer”;må- 
nad;”kallas”; 

månads’namn$(månad) 

ENDFOR månad 

COMAL tillåter också en snabb en- 
radig FOR-struktur som inte använder 
ENDFOR-avslutningen: 

Syntax: 

FOR[satyrvariabel]: = [start värde]TO- 
[slutvärde] STEP[steg] DO [satser] 

Ett vanligt fall är en paus-slinga, 
som visas nedan (detta exempel visar 
också hur NULL-satsen kan användas, 
vilken, som namnet också anger, inte 
gör någonting): 

FOR paus: = 1 TO 500 DO NULL 

Procedurer och funktioner 

Flerradiga procedurer och funktioner 
är en av COMAL’s specialiteter. De är 
lätta att använda för nybörjaren och 
ger ändå möjligheter som bör tillfreds¬ 
ställa även den mest avancerade pro¬ 
grammerare. 

Det är lätt att skriva moduluppbygg- 
da program i COMAL. Man kan när 
som helst anropa en procedur eller en 
funktion, var som helst i sitt program, 
helt enkelt genom att använda en 
EXEC-sats eller ett funktionsanrop. 

När ett program som körs möter en 
EXEC-sats, utför det denna procedur 
innan det fortsätter. Procedurer anro¬ 
pas med namn (kom ihåg, radnummer 
är inte intressanta för ett COMAL-pro- 
gram). Procedurer och funktioner till¬ 
åter parameteröverföring liksom an¬ 
vändning av både lokala och globala—•- 
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variabler, dvs sådana som används 
både i huvudprogram och i procedur- 
/funktion. Och procedurerna eller 
funktionerna behöver nu inte ens ingå i 
programmet. De kan vara s k external, 
dvs finnas lagrade på disk för inlag¬ 
ring just där de behövs. På detta sätt 
har COMAL 2.0 praktiskt taget ett s k 
virtuellt minne, precis som stora dato¬ 
rer. Procedurer kan kapslas i varandra 
och ett program kan anropa ett annat. 
Eller t o m anropa sig själv, s k rekur- 
sion. COMAL tillåter användardefi- 
nierade nummeriska funktioner, hel- 
talsfunktioner eller textfunktioner. 
Värdet på funktionen sänds tillbaka till 
huvudprogramet via RETURN-satsen 
(detta skiljer sig från RETURN-satsen 
i BASIC!). Även om här kommer att i 
huvudsak beskrivas procedurer så gäl¬ 
ler att funktioner delar deras flexibili¬ 
tet utom det att de anropas med ett 
funktionsanrop och sänder tillbaka ett 
värde, i stället för att anropas med en 
EXEC-sats. 

Den viktigaste programraden för en 
procedur är första raden, som komer 
att kallas för huvudet. Här ger man 
proceduren dess namn, anger paramet¬ 
rarna om sådana finns och specificerar 
om den skall vara sluten (CLOSED) 
och ha lokala variabler eller inte. Ver¬ 
sion 2.00 ökar ut huvudet med en vill¬ 
korlig external-indikator. På detta sätt 
kan PROC-satsen bli ganska komplex. 
Detta ger dig stor flexibilitet. Du behö¬ 
ver inte använda alla möjligheter, det 
räcker om du börjar med en enkel pro¬ 
cedur. 

Den enklaste PROC-satsen ger en¬ 
dast proceduren ett namn. Alla varia¬ 
bler fortsätter vara globala ( = kända i 
hela programmet, huvudprogram och 
delprogram) och man använder inga 
parametrar: 

PROC [procedur-namn] 

T ex 

PROC förfrågan 

Man kan göra alla variabler inom 
proceduren lokala genom att lägga till 
ordet CLOSED (stängd) i slutet av pro¬ 
cedurhuvudraden. En CLOSED proce¬ 
dur vet ingenting om de variabler som 
används i huvudprogrammet och pro¬ 
grammet vet ingenting om de variabler 
som används inne i proceduren. 

PROC [procedur-namn] CLOSED 

T ex 

PROC paus CLOSED 

Men även en CLOSED procedur kan 


dela värden från huvudprogrammet 
genom parameteröverföring eller ge¬ 
nom användning av IMPORT-satsen. 
De variabler som anges i parameterlis¬ 
tan för proceduren tilldelas startvärden 
som lämnas av den anropande EXEC- 
satsen. Enkel värdeöverföring är bara 
en-vägs” dvs in i proceduren. 
PROC-huvudet ser då ut så här: 


PROC [procedur-namn] 
lista] CLOSED 

T ex 


[parameter- 


PROC etikett(namn$, adressS, 
stad$,postnr)CLOSED 

COMAL låter dig också föra tillba¬ 
ka värden till den anropande satsen. 
Då lägger man till nyckelordet REF fö¬ 
re de parametrar, som man vill ha till 
”två-vägs”-parametrar. Dessa varia¬ 
bler anropas därefter som ”referen¬ 
ser”, och används i stälet för de mot¬ 
svarande variablerna i EXEC-satsen. 
Variablernamnet är fortfarande att be¬ 
trakta som lokalt och kan inte komma i 
konflikt med någon variabel med sam¬ 
ma namn i huvudprogrammet. Och 
den variabel som anropas som referens 
behöver inte vara samma som den i an- 
ropssatsen. Faktiskt brukar den vanli¬ 
gen vara olika. Som ett exempel, låt oss 
visa hur man kan mata in en text och 
därefter omvandla varje tecken som in¬ 
te är en siffra till en punkt och varje 
siffra till bokstaven D: 

DIM svar$ OF 80 
INPUT”Skriv in någon text med siff¬ 
ror:”; svar$ 

EXEC omvandling(svar$) 

PRINT ”Efter omvandling ser det nu 
ut så här:”;svar$ 

PROC omvandling(REF text$)CLO- 
SED 

FOR tillf: = 1 TO LEN(textS) DO 
IF textS(tillf) IN ”10123456789” 
THEN 

text$(tillf): = ”D” 

ELSE 

text$(tillf): = ”.” 

ENDIF 
ENDFOR tillf 
ENDPROC omvandling 

Nu kan vi titta på en provkörning av 
detta program: 

RUN 

Skriv in någon text med siffror: 
ABS123XYZ5 

Efter omvandling ser det ut så här: 
...DDD...D 


Utöver att visa användningen av två¬ 


vägs parameteröverföring, visar 
exemplet hur en del av en textsträng 
kan ändras utan att påverka resten av 
strängen. Mankan också se hur auto¬ 
matiskt strukturindragning av raderna 
ökar läsbarheten. 

En CLOSED procedur kan också de¬ 
la variabler med huvudprogrammet via 
IMPORT-satsen. IMPORT-satsen är i 
verkligheten en del av proceduren. En 
lista över variabelnamn hör till, och 
dessa kommer att delas med huvudpro¬ 
grammet: 

IMPORT namn$, betyg 

Version 2.00 har utom all kraftfull¬ 
het och flexibilitet hos procedurer och 
funktioner även möjligheten att låta 
dem vara external till anropade pro¬ 
gram. Detta innebär att man kan ha al¬ 
la sina mest använda procedurer lag¬ 
rade på en diskett. Så länge man har 
denna diskett i sin diskettstation, kan 
alla program använda dess procedurer 
när som helst genom att helt enkelt 
skriva PROC-huvudet och avsluta med 
ordet EXTERNAL och korrekt fil¬ 
namn: 

PROC[procedurnamn] [parameter¬ 
lista] CLOSED EXTERNAL[fil- 
namn] 

T ex 

PROC snabbsort(vänster,höger, 
REF namn$( )CLOSED EXTER¬ 
NAL ”snabbsort.e” 

En extemal-procedur hämtas från 
disketten bara när den behövs. Och så 
snart som den är avslutad tas den bort 
ur minnet. Härigenom ger external- 
procedurer i verkligheten tillgång till 
ett virtuellt minnessystem, d v s ett dy¬ 
namiskt minne som ändras efter be¬ 
hov. En annan fördel är att när man 
uppdaterar sin procedur, förbättrar 
den eller bara ändrar den, då behöver 
man bara göra detta en gång på sin hu- 
vud-biblioteks-diskett. Därefter kom¬ 
mer varje program som anropar proce¬ 
durer att alltid ha senaste versionen av 
varje procedur. Och slutligen, pro¬ 
grammen kan hållas mindre nu när 
procedurerna inte behöver skrivas in i 
varje program som använder dem. 
Detta kommer att tillåta fler program 
att lagras på en diskett. 

Med external-procedurer och funk¬ 
tioner, program-sammankedjning, 
maskinspråks-länkning och avancerat 
felhanterings-system har COMAL ut¬ 
vecklats till att vara mer än ett språk 
enbart för nybörjar. Det är visst visser¬ 
ligen fortfarande ett mycket trevligt 
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språk för nybörjare, som senare kom¬ 
mer att finna att de kommer att kunna 
ha rik nytta av språkets många avance¬ 
rade egenskaper. 

Några andra avancerade 
egenskaper 

Vissa av de avancerade egenskaperna 
som nu finns i COMAL inkluderar så¬ 
dant som är hämtat från PASCAL och 
ADA men även sådant som är unikt för 
COMAL. En hel matris kan skrivas till 
diskett med en sats. Senare kan en ma¬ 
tris med liknande dimensioner initiali- 
seras med denna disk-fil, också med en 
programsats. Sekvensiella filer kan lä¬ 
sas och skrivas på två olika sätt. En me¬ 
tod är naturligtvis kompatibel med fi¬ 
ler som skrivits i BASIC och låter dig få 
tillgång till filer från BASIC-program 
som du redan har. Den andra metoden 
använder en teckenräknare för text¬ 
poster och medger att texten kan inne¬ 
hålla vilket som helst av ASCII-teck- 
nen, inklusive de som vanligen utgör 
begränsningar vid BASIC. 

COMAL har nu en ”tids- och da- 
tum-stämplings”-möjlighet som är 
mycket användbar. Varje gång en fil 
lagras på disk så följer systemtid och 
datum med. På detta sätt kan du, om 
du har tre olika versioner av ett pro¬ 
gram på en diskett, men inte kommer 
ihåg vilket som är nyast, genom att läsa 
av tid- och datummärket för varje fil 
lätt se vilket som är det senaste. En ut¬ 
ökad registerlistning kan nu också ta 
med tid och datum när varje fil lag¬ 
rades på disketten. Backup-program 
(Säkerhetskopieprogram) kan också 
använda denna information och säker- 
hetskopiera endast de filer som har 
lagts till eller ändrats under den sensate 
veckan. 

På så vis görs den veckovisa säker¬ 
hetskopieringen mycket lättare och 
kräver mindre tid och färre disketter. 

Den avancerade IMPUT-möjlighe- 
ten som COMAL nu har är anmärk¬ 
ningsvärd. Den ger fullständigt skydd 
från möjligheten att en användare 
”stökar till” en formatterad skärm un¬ 
der inmatningen, utan att du måste 
skriva invecklade procedurer för att 
styra inmatningen. INPUT-satsen ac¬ 
cepterar nu inte tecken som självklart 
inte skall finnas med i någon inmat- 
ningsförfrågan. Det betyder bl a att 
markörflyttningar ignoreras, att ”ho- 
me markör” omdefinierats till att bety¬ 
da ”flytta markören till första tecknet i 
inmatningsfältet”. Rensa skärmen har 
omdefinierats att utföra samma som 
”home markör”, men det raderar ock¬ 
så ut allt som skrivits in i inmatnings¬ 


fältet och låter dig börja på nytt. CO¬ 
MAL tillåter inte heller användaren att 
hoppa in i citat-mode eller s k inskjut- 
nings-mod under en INPUT-förfrå¬ 
gan. Likaså ignoreras omvändnings- 
kommando ”Reverse Field”. 

Om du nu tycker att detta är fantas¬ 
tiskt, kommer COMAL att ytterligare 
utvidgas med INPUT AT-satsen. Den¬ 
na sats tillåter dig att ange var på skär¬ 
men inmatningen skall börja och hur 
många tecken som kan tas emot som 
mest. Härigenom kan du med denna 
enda sats specifieras att inmatningen 
skall börja på rad 10 i läge (kolumn) 5 
och inte kan vara mer än 6 tecken 
långt. Även en nybörjare kan nu pro¬ 
ducera några verkligen professionella 
”skott-säkra” program utan alltför 
mycken ansträngning. 

Utöver de avancerade INPUT-möj- 
ligheterna ger COMAL också några 
avancerade OUTPUT (utmatnings)- 
möjligheter. Det inkluderar PRINT 
USING, vilket olyckligtvis aldrig imp- 
lementerades (infördes i) CBM BA¬ 
SIC. Det tillåter också enkel skiftning 
från utmatning på skärmen till utmat¬ 
ning på printern (utmatning kan även 
dirigeras till en diskettstation). TAB 
och ZONE fungerar på samma sätt på 
både skärm och printer (det gör de inte 
i CBM BASIC!). Om du har en ASCII- 
printer (vilken icke-Commodore-prin- 
ter som helst) kanske du redan upp¬ 
täckt att PET ASCII inte är riktigt 
samma sak som standard ASCII. CO¬ 
MAL har möjlighet att automatiskt 
omvandla PET ASCII till standard 
ASCII för varje utmatning till skriva¬ 
re. COMAL har också möjlighet att 
sända en radmatning med varje vagn¬ 
retur. Vissa printrar kräver detta me¬ 
dan andra inte kan ha det. 

Värdetilldelning till variabler är mer 
avancerat än CBM BASIC’s. COMAL 
planerar ett kolon (:) före likhetsteck¬ 
net i tilldelningssatser på samma sätt 
som PASCAL. Detta gör det lättare att 
skilja mellan tilldelning och jämförel¬ 
se. Men man behöver inte skriva in ko- 
lonet, det lägger COMAL-tolken till 
själv. COMAL tillåter upp- och ner- 
stigning av en variabel på samma sätt 
som CBM BASIC, men det finns också 
en ALGOL-liknande metod. Man be¬ 
höver bara skriva ett kolon framför ett 
plus- eller minustecken och det blir en 
symbol för minskning eller ökning och 
är fullt jämförbar med kolon framför 
likhetstecknet. T ex om man vill min¬ 
ska sin kassa med en betalning kan 
man i BASIC skriva: KA = TA - BE 

I COMAL kan detta skrivas: 

KASSA :— BETALNING 



Sträng-koppling (Concatenation) 
kan också ske med denna genväg: 

BASIC: T$ = T$ + R$ 

COMAL: TEXTS : + SVARS 

COMAL har ocksåTRUE (sant) och 
FALSE (falsk) som systemkonstanter. 
FALSE är alltid lika med 0 och TRUE 
lika med 1. När man använder en 
TRUE/FALSE-jämförelse är det myc¬ 
ket lättare att följa och mindre mångty¬ 
digt om du använder orden TRUE och 
FALSE än talen 0 och 1. COMAL har 
också några andra systemvariabler 
som är värdefulla. EOD sätts till 
TRUE när sista dataposten läses i data¬ 
satser. EOF sätts till TRUE när filslutet 
nås i en inmatnings-data-fil. COMAL 
har också en sats för att stänga av 
STOP-tangentens funktion och en sys¬ 
temvariabel, ESC, som då sätts till 
TRUE medan STOP-tangenten hålls 
nedtryckt. Du kan sedan använda 
STOP-tangenten till vilken funktion 
du vill i ditt program. 

Därutöver har COMAL ett avance¬ 
rat felhanteringssystem som kan an¬ 
vändas i dina prograam. Nu, om ditt 
program möter ett fel under körning 
(t ex FILE NOT FOUND, dvs FI¬ 
LEN HITTAS INTE) kan programmet 
utföra lämpliga åtgärder i stället för att 
bara stoppa och skriva ett felmedde¬ 
lande. 

Begreppet ”paket” från ADA har 
nu också lagts in i COMAL. Ett ”pa¬ 
ket” är ett slutet system komplett med 
startrutin och sina egna procedurer och 
funktioner, som kan vara globala eller 
privata (= lokala). Pakettekniken är 
en avancerad teknik och för external- 
procedurerna ytterligare ett steg fram¬ 
åt. De flesta användare kommer inte 
att ta fram sina egna ”paket”, men det 
kommer så småningom att finnas 
många applikationsprogram, som an¬ 
vänder dem eller kanske t o m pro¬ 
gramvaruhus som säljer ”paket” pre¬ 
cis som de nu säljer s k ”tool kits” för 
BASIC. 

Slutligen, om du använder en VIC- 
64, då har du både version 0.12 och 
småningom även 2.00 att tillgå med 
speciellt anpassade rutiner för att styra 
grafik-möjligheterna direkt från CO¬ 
MAL (dvs inga fler PEEKar och PO- 
KEar behövs). Detta innefattar också 
högupplösningsgrafik, s k Turtle-gra- 
fik (liknande den i LOGO) och sprite- 
styrnings-kommandon. Version 2.00 
har också liknande kommandon för att 
styra ljudmöjligheterna med SID-chi- 
pet. Enbart dessa egenskaper borde ge 
tillräckliga skäl för att byta BASIC 
mot COMAL! 
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Frågor och svar om COMAL 

Det har kommit åtskilliga frågor om COMAL och om 
möjligheterna att få COMAL till VIC-64 och vi publi¬ 
cerar här ett urval med frågor och svar: 


Fråga: Finns några läroböcker om CO¬ 
MAL på svenska? 

Svar: Ja, men Börge Christensens gam¬ 
la bok som finns på Liber: COMAL I 
måste nog betraktas som föråldrad nu. 
Under sommaren kommer helt färska 
böcker från förlagsgruppen i Norrkö¬ 
ping, både nyskrivna svenska och över¬ 
sättningar av kända böcker på danska 
och engelska, t ex COMAL HAND¬ 
BOK av Lea Lindsay, COMAL-80 av 
Poul Östergaard, Strukurerad pro¬ 
grammering med COMAL av Roy At- 
herton samt ytterligare någon bok. I 
dag finns en handbok till 0.12-versio- 
nen på VIC-64 klar i tryck och snart 
även 2.00-versionens 64-handbok, men 
de är inte egentligen läroböcker utan 
mer uppslagsböcker som presenterar 
de olika kommandona och nyckelor¬ 
den. 

9 

Vilka böcker kan rekommenderas för 
en hemdatoranvändare? 

Svar: BEGINNING COMAL av Börge 
Christensen är en nybörjarbok på eng¬ 
elska, som enligt vad som ryktas skall 
utkomma från Liber under sommaren. 
Även COMAL-80 av Poul Östergaard 
och Lindsays bok som både kommer 
från Förlagsgruppen, är bra nybörjar- 
böcker. Lindsays Handbok är väl mer 
ett komplett lexikon över COMAL än 
en egentlig lärobok för nybörjare. 1 så¬ 
väl VIC-rapport sm i COM AL¬ 
KLUBBENS tidning kommer instruk¬ 
tiva artiklr för att visa hur man kan ut¬ 
nyttja möjligheterna med COMAL. 

9 

Fråga: Hur kan jag köra COMAL på 
min VIC-64? 

Svar: Skaffa dig 0.12-disketten redan 
nu! Den låter dig börja med en koncen¬ 
trerad version av COMAL som kan 
”mjukladdas”, dvs som inte kräver 
någon speciell maskinvara utan använ¬ 
der datorns minne för att lagra in pro¬ 
gramtolken. De program du utvecklar 
kan du sedan använda tillsammans 
med den fullt utbyggda versionen 2.00, 
som är aviserad till sommaren i form 
av en plug-in-modul som sticks in i an- 
vändarporten på 64:an och låter dig ha 
hela 30K minnesutrymmen för pro¬ 


gram kvar. Med 0.12-versionen går en 
del minne åt för VOMAL-tolken och 
du får ca 10K över för program. Nu är 
detta ingen större fara eftersom CO¬ 
MAL låter dig använda skivminnet 
som extraminne och det gör att i prak¬ 
tiken kan du ha praktiskt taget obe¬ 
gränsat stora program i COMÄL! 

9 

Fråga: Vilket diskettsystem används 
för COMAL? 

Svar: Disketten för 0.12-versionen är 
en vanlig 5,25 tums som kan läsas i 
1541-stationen (eller i en 4040-dubbels- 
tation, om man har Superbox till sin 
VIC-64). 

9 

Fråga: Är disketterna kopieringsskyd- 
dade? 

Svar: Ja, själva COMAL-tolken är ko- 
pieringsskyddad, men alla andra pro¬ 
gram, som också finns på disketten, 
kan fritt användas och kopieras, änd¬ 
ras eller ökas ut så att de lämpar sig ut¬ 
märkt för den, som vill göra kvalifice¬ 
rade program och vill ha byggstenar att 
bygga vidare på. 

9 

Fråga: Finns det en kompilator för 
COMAL? 

Svar: Alla versioner av COMAL inne¬ 
håller också en s k RUN TIME COM- 
PILER, d v s en kompilator som när 
programmet skall köras med ”RUN” 
tar fram en kompilerad version av pro¬ 
grammet. Den ger många av förde¬ 
larna med en vanlig kompilator, inklu¬ 
sive adresser till alla hopp och val i ett 
program. Vi har hört, att den faktiskt 
är snabbare än C-kompilatorn till VIC- 
64. COMAL-tolken fungerar så, att 
när man knappar in sin programrad 
och trycker på (RETURN) så kontrol¬ 
leras först raden om den är syntatktisk 
korrekt och om alla nyckelord är rätt 
skrivna. Nästa steg sker när man ger 
kommandot ”RUN” (eller ”SCAN” i 
version 2.00). Då kontrolleras alla 
strukturer om de är korrekta och alla 
hopp ändras till absolut-adress-hopp. 


Därefter, när programmet faktiskt ut¬ 
förs, sker den sista delen av komplie- 
ringen — samtliga dessa steg är oerhört 
snabba och användaren märker ingen¬ 
ting annat än om han/hon gjort något 
fel. Då kommer tydliga felmeddelan¬ 
den att upplysa om hur felet bör rättas 
— en ytterligare fördel med COMAL. 

9 

Fråga: Hur är kommandona för grafik 
och sprites på 64:an dokumenterade? 

Svar: På COMAL-disketten finns en 
datafil, som ger syntaxen för komman¬ 
dona, exempel samt en kort förklaring 
på de nära 50 nya kommandona. Un¬ 
der hösten 1984 kommer en speciell 
handbok, som behandlar grafik, spri¬ 
tes och ljud på 64:an. Den skrivs just 
nu av Len Lindsay i USA och skall 
översättas och utges av Förlagsgrup¬ 
pen i Norrköping. 

9 

Fråga: Kan BASIC-program köras i 
COMAL? 

Svar: Nej, men om inte programmet är 
alltför ”spaghetti-betonat” i BASIC 
kan du göra om det till ett COMAL- 
program. Annars kan du genom att 
knappa in ”BASIC” och trycka på 
(RETURN) komma tillbaka till din 
BASIC-miljö. Men då måst du för at 
komma till COMAL på nytt, först 
stänga av datorn och därefter ladda in 
COMAL på nytt. 

9 

Fråga: Är COMAL-KLUBBEN I SVE¬ 
RIGE på något sätt knuten till Com- 
modore, Datatronic, Handic eller Uni- 
comal? 

Svar: Nej, COMAL-KLUBBEN I 
SVERIGE är hel fri från alla bindning¬ 
ar och totalt oberoende av annat stöd 
än medlemmarnas. Företag kan ej vara 
aktiva medlemmar i klubben, endast 
stödjande medlemmar utan rösträtt. 

9 

Fråga: Min lokale handlare känner inte 
till COMAL, varför? 

Svar: Av obekanta skäl har ej Datatro- 
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nic eller Handic satsat på detta nya 
kraftfulla språk i Sverige. Det är i stäl¬ 
let Förlagsgruppen i Norrköping, som 
svarar för introduktionen hos handlar¬ 
na och på skolorna. Man har förmodli¬ 
gen inte ännu täckt in samtliga handla¬ 
re med sina presentationskurser och 
här kan du själv göra en insats genom 
att tala om vad du läst om COMAL 
och uppmana handlaren att ta kontakt 
med Förlagsgruppen för att få mer de¬ 
taljerade informationer. Naturligtvis 
kan du också hänvisa till COMAL- 
KLUBBEN I SVERIGE, adressen står 
längst ned i denna frågespalt. 

9 

Fråga: Vilka skillnader ar det mellan de 
olika CMB-versionerna av COMAL? 

Svar: Version 0.12 har alla huvuddelar 
i COMAL-80-kärnan: programstruk¬ 
turer med automatisk indragning av ra¬ 
der, skärmeditering, sammanknytning 
av program från disk, automatisk rad¬ 
numrering, random-access-filer, två 
slags sekvensiella filer, programkedj- 
ning, flerradiga procedurer och funk¬ 
tioner med parameteröverföring, loka¬ 
la variabler, avstängning av STOPP- 
tangenten, systemvariablerna EOD 
(End Of Data) och EOF (End Of File), 
inbyggd stränsökning, PEEK, POKE, 
SYS, omdedelbar syntaxkontroll, m m 
m m. 

Version 0.12 finns för VIC-64 och 
för PET-datorer med upp till 32K min¬ 
ne. Version 2.00 kan köras dels i modul 
på 64:an, men den är inte leveransklar 
ännu i maj när detta skrivs och dels på 
alla PET-datorer med hjälp av ett spe¬ 
ciellt COMAL-kort som fins att köpa 
från JAN EEN PROGRAMKON¬ 
SULT i Surte (se listan nedan) och från 
COMAL-KLUBBEN. Dessutom finns 
en mjukladdad version på disk, som 
endast går att använda på Super-PET, 
dvs 8096 med 96K minne. 

Version 2.00 är den fullständiga CO- 
MAL-80 med utvidgningar och möjlig¬ 
het at köra program som utvecklats i 
version 0.12. I de utökade egenskaper¬ 
na finns radnummeroberoende pro- 
gramkedjning från diskett, PRINT 
AT, PRINT USING, CURSOR, LIST 
av en procedur, utökade disk-kom- 
mandon. Både STORA och små bok¬ 
stäver accepteras vid programinskriv¬ 
ning, man har GETS, KEYS, globala 
variabler i en CLOSED procedur, IN- 
TERRUPT-styrning av IEEE-av- 
brottsrutinen, RESTORE till en spe¬ 
ciell LABEL, RENUMMER av endast 
en programsektion, SPCS, STRS, 
VAL och TIME. Version 2.00 har ock¬ 


så egenskaper man väntar sig av ett 
stordatorspråk som: externa procedu¬ 
rer och funktioner, strukturerad fel¬ 
hantering, förbättrad filnamnsmetod, 
skyddade INPUT-satser, förmågan att 
enkelt och automatiskt LINKa reloker- 
bar maskinkod till ett COMAL pro¬ 
gram och användardefinierade sträng¬ 
funktioner. 

9 

Fråga: Hur är LOGO i förhållande till 
COMAL på 64:an. 

Svar: 64:an har alla LOGO-komman- 
don för s k Turtle-styrning PLUS yt¬ 
terligare några som tar tillvara 64:ans 
stora möjligheter. Se en separat artikel 
om grafik och sprites i COMAL, som 
publiceras i VIC-rapport snart. 

Åke Fredriksson 

Ordf. COMAL-KLUBBEN I SVERI¬ 
GE 


Adresser till leverantörer av COMAL: 
FÖRLAGSGRUPPEN I NORRKÖ¬ 
PING 

Nygatan 85, 602 34 NORRKÖPING 
Telefon 011-13 40 80 

Samtliga HANDICs återförsäljare 
JAN EEN PROGRAMKONSULT HB 
Trädgårdsgatan 8 A, 445 00 SURTE 
Telefon 031-98 18 67 

COMAL-KLUBBEN I SVERIGE 
Kansli: c/o Åke Fredriksson, 
Gustavsbergsgatan 8, 431 37 MÖLN¬ 
DAL 

Telefon 031-87 70 84 


DATAKASETTER 

Vi har alla längder C 10 från 
7:45/styck, moms ingår. 

Testa vår höga kvalité! Vi sänder prov- 
kassett mot 10:— i frimärken. 

KLM TRADING, Box 94,43031 ÅSA 
0340-56190 


BASF DISKETTER 
TILL LÅGPRIS! 

Från 25:—/styck, moms ingår. 

KLM TRADING, Box 94,43031 ÅSA 
0340-56190 


OK BILRADIO 

Lokal databank för VIC-ägare 
Vardagar 9.00—18.00 026-108824 

Helger och nattid 026-111177 

Överföring: 300 BAUD 
Öppet för alla intresserade. 


BOKFÖRIIMGS- 
PROGRAM TILL 



Ett program så genomarbetat 
och enkelt att det faktiskt gör 
rutinarbetet trevligt. 

Dessutom är det säkert! 

Varje inmatad uppgift kontrol¬ 
leras av programmet och vid 
felaktig form spärras inmat¬ 
ningen. 

Efter en registrering av trans¬ 
aktionerna erhålles. . 



DAGBOK 


HUVUDBOK 


SALDOBALANS 


RESULTATRAPPORT 


I PROGRAMMET FINNS 
ÄVEN BOKSLUTSRUTINER 

Tillfället även 
för återförsäljare 
- tag snabbt kontakt med . . 




BUTIKEN 


Tel. 060/11 08 00 
SJÖGATAN 7, 
852 33 SUNDSVALL 
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Maskinkodsmonitor 

till VIC 64 


En BRA maskinkodsmonitor eller ännu 
hellre en assemblator är något som far oss 
”assemblerknuttar” att slappna av. 

Någon tillräckligt bra assemblator har 
jag hittills inte sett på den svenska markna¬ 
den, men ryktet säger att det snart kommer 
att dyka upp en svensktillverkad dito. 

En bra maskinkodsmonitor finns dock re¬ 
dan pä marknaden men med den uppsjö av 
mer eller mindre fusktillverkade monitorer 
så är det lätt att köpa fel monitor, dvs en 
som är sämre men kostar mer. 


Jag har under nägra månader haft den 
äran att jobba med 64-MON en ma¬ 
skinkodsmonitor för VIC-64 och 
tänkte att jag här pa nägra rader skulle 
redovisa de erfarenheter jag har fått 
av detta ungänge. Jag anser att jag kan 
göra en rättvis bedömning av denna 
efter att ha arbetat och ibland sagt 
många fula saker om nära nog dussinet 
monitorer till CBM maskiner. 

Vad har dä 64-MON att bjuda oss 
fartdärar? 

För att sammanfatta de möjligheter 
som monitorn ger oss så tittar vi pä 
dess kommandon. 

A 

Assemblera en rad i minnet. 

B 

Med detta kommando kan man sätta 
TVÅ brytpunkter. De adresser man 
ger visas hela tiden överst på skärmen. 

C 

Jämför tvä minnesareor. (Denna finns 
dock ej dokumenterad i manualen. 
Dess SYNTAX är 
C startadrl. slutadrl. startadr2. 

De minnespositioner som skiljer sig ät 
mellan de två areorna listas sedan på 
skärmen.) 


D 

Disassemblerar ett minnesomräde. 
Genom cursortangenterna kan man 
scrolla både bakåt och framat i assem- 
blerkoden. 

F 

Fyller ett minnesomräde med ett vär¬ 
de. 

G 

Startar exekveringen av ett program i 
raltid. 

H 

Söker en sträng eller en byte kombina¬ 
tion i ett område av minnet. 

I 

Listar ett område av minnet som AS¬ 
CII kod. Med cursor tangenterna kan 
man scrolla både bakåt och framåt i 
minnet. Om man vill sä kan man också 
lägga in ASCII kod i minnet med den¬ 
na funktion. 

L 

Laddar ett program eller data från en 
yttre enhet. 

M 

Visar minnesinnehållet i hexadecimal 
form och i ASCII form. Man kan 


scrolla bakåt eller framåt i minnet med 
hjälp av cursortangenterna. Man kan 
dessutom lägga in både hextal och AS¬ 
CII tecken i minnet med funktionen. 

N 

ändrar om alla absoluta referenser i ett 
program som flyttats från en area till 
en annan genom att addera ett ofsett. 
Man kan även använda funktionen pä 
vektortabeller. 

O 

Utskriften sänds till skrivare istället 
för skärm. 

Q 

Programmet körs men break punkter 
söks och om sådan hittas går program¬ 
met in i WALK mod samt skriver ut 
register innehållet, 

R 

Visar processorns register. 

S 

Sparar ett program eller data på yttre 
enhet. 

T 

Flyttar ett minnesblock från ett områ¬ 
de till ett annat. 

V 

Ger möjlighet att få det nuvarande in¬ 
nehållet i en minnesadress visad under 
WALK mod. 

W 

Stegar sig genom ett program och visar 
hela tiden assemblerkod och regis- 
terinnehäll. Detta är alltså WALK- 
mod. 

X 

återgång till BASIC. 

£ 

Ger möjlighet att ge kommando till 
disk. Om bara £ skrivs ges statusen för 
disken. 
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Kopplar IN/UR BASIC/KERNAL 
ROM. 

# 

Konverterar hextal till decimala. 

$ 

konverterar decimala tal till hextal. 

Dessutom finns tre funktionstan- 
genter definierade. 

Fl 

Skriver ut den aktuella skärmen på 
skrivare. 

F3 

Ger möjlighet att ändra i processorns 
register. 

F7 

Visar en hjälpskärm som innehåller 
samtliga kommandon och deras syn¬ 
tax. 

O 

Det finns ingen anledning till att be¬ 
skriva de kommandon som finns ytter¬ 
ligare. Istället så tar vi och går igenom 
de egenskaper som gör att 64-MON 
skiljer sig från andra monitorer på 
marknaden. 

Det första vi måste nämna är att 
64-MON kommer som PLUGG IN 
dvs en nätt liten smörgås som man 
pluggar in i datorn. På denna kassett 
så sitter en knapp märkt RESET. Ja, 
just det RESET. Med denna knapp så 
kan man alltså rädda många timmars 
arbete från att gå förlorat. ALLA har 
väl någon gång varit så självsäkra att vi 


g MNEMONIC 

B <i ,2) NNNN 

0 >>$$ <$$$$> 

F $$$$ $$$$ NN 
G 

H III! $$$$ NH 

L "NAME",NN 
M $$$$ <£$$$> 

A2 OFF A4 A5 <W> 

Q 

RB (i.2> 

S ”HA&N" NN,$$$$,$$$$ 
T $$$$ $$$$ 

W <§$$$> 

V $$$$ 

X 

e <I,$,U,N,S,ttX> 

Fl 

F3/T 4 
F5/F6 
F 8 

#$$$$ / SHNNNN 


ASSEMBLE 

SET BREAKPOI NT/S 
DISASSEMBLE 
FILL MEHORY 
GO 

HUNT 

INTERPRET 

LOAO PROGRAM 

DISPLAV MEMORV 

RELOCATE 

OUTPUT 

QUICKTRACE 

REHOUE BREAKPOINT 

SAUE 

TRANSFER 

WALK 

SHOW ADORESS 
EXIT TO BASIC 


EXIT TO BASI( 
DOS COMMAHDS 
RAM/ROM MODE . 
DUMP SCREEN 
ALTER/SHOW REGS 
REPEAT ON/OFF 
LOAD <MENU> 
HEX<->DECIMAL 


testat vårt nykonstruerade assem- 
blerprogram innan vi sparat det på 
disk eller band. Naturligtvis har det 
sagt POFF, ZAAAAP. BOOOOM 
och inget har fungerat längre. Till slut 
har man nödgats knäppa av och på 
datorn väl medveten om att det kära 
programmet för evigt är borta. 

Tillsammans med 64-MON så kan 
man glömma detta. Ett tryck på 
RESET knappen och vips så är syste¬ 
met igång igen utan att den kod man 
har lagrat försvunnit. UNDER¬ 
BART!!!!! Att man tagit med denna 
knapp på kassetten tyder på att man 
tänkt på oss "assemblernissar" men ty¬ 


värr har man glömt en sak. När man 
skriver kod i 6502 miljö så använder 
man nästan alltid sida noll. Reset ru¬ 
tinen hos 64-MON nollar dock hela 
sida noll så man kan få problem när 
man skall kontrollera vad som gick 
snett. Det viktiga kvarstår ju dock att 
man har sitt program intakt. Förutom 
RESET knappen så finns också två 
andra brytare i ett litet hål på ”låd- 
dan'\ Dessa är märkta "AUTO" och 
"SYS 32768”. Enligt manualen så ger 
den ena ställningen av knapparna här 
AUTOSTART och den andra en upp¬ 
start av BASIC varifrån man själv får 
starta upp monitorn med SYS 32768. 

I manualen står heller inget om hur 
man ändrar om de två små brytare 
som finns här. Det tog mig en hel dag 
att komma på att man skulle stoppa in 
en liten skruvmejsel i de små skåror 
som finns här och dra nedåt. Lyckan 
över att ha kommit på hur man ställde 
om dessa varade inte länge för i SYS 
läget kunde jag för allt i världen, hur 
jag än försökte, inte få monitorn att 
komma igång. Så fort jag skrev SYS 
32768 så dök systemet. Av en ren till¬ 
fällighet råkade jag dock trycka 
RUN/STOP+RESTORE och vips så 
var jag inne i monitorn. Detta är an¬ 
tagligen tillrättat på senare modeller 
av 64-MON. Har Du dock en tidig mo¬ 
dell så testa detta. Jag tänker inte kla¬ 
ga på manualen eftersom denna 
manual trots allt står långt över de 
manualer vi CBM-användare normalt 
har tillgång till. När monitorn startas 
upp så får man se en ganska udda 
skärm. Registerinnehåll och lite annat 
visas nämligen hela tiden på skärmens —► 
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övre del. Detta är en underbar idé av 
tillverkaren och det är konstigt att 
ingen har kommit på det tidigare. GE¬ 
NIALT. 

Som Du såg tidigare så fanns de nor¬ 
mala kommandona men mänga av 
dessa är dock förbättrade och mycket 
användarvänliga. Lät oss titta på de av 
dem som har en funktion som skiljer 
sig från de tidigare monitortyper som 
sett dagens ljus. 

A kommandot 

Fungerar precis som vanligt. Till skill¬ 
nad frän många andra monitorer så 
kan man helt fritt ändra både data och 
memo ord utan att monitorn klagar. 
Detta underlättar handhavandet. Det 
enda som är lite väl långsökt är att 
man alltid måste ange "$" för ett hex- 
tal trots att bara hextal är tillåtna. Det¬ 
ta är ett förlegat tänkande som de fles¬ 
ta monitor tillverkare fortsätter med. 
För oss användare ger det en extra 
(SH1FTAD och tråkig) tangentned- 
tryckning på varje assemblerad inne¬ 
hållande en operand. 

B kommandot 

Här ges möjlighet att sätta två bryt¬ 
punkter iställef för en som hos de fles¬ 
ta monitorer. MYCKET BRA! Dess¬ 
utom så visas de satta brytpunkterna 
på den dataarea vi nämnde ovan. ÄN¬ 
NU BÄTTRE! 


H kommandot 

Möjligheten att söka en sträng utan att 
behöva koda den för hand till hexakod 
måste uppskattas. SUPERBT. 

I kommandot 

Här finns tyvärr en bugg i den version 
som jag har. När man en gång har gett 
1 kommandot så kan man nämligen 
inte komma ur det. 1 manualen står 
det att STOP skall gå ur men detta 
fungerar ej. Man kan dock trycka på 
[Fl] vilket fungerar alldeles utmärkt. 
Jag måste direkt säga att jag är över¬ 
lycklig över detta kommando som för¬ 
utom att ge mig möjlighet att titta pä 
strängar i minnet tillåter att jag skriver 
in strängar som monitorn översätter 
till ASCII kod. Ett arbete som nor¬ 
malt har tagit mig åtskilligt med tid. 

M kommandot 

Har förutom den normala funktionen 
samma förträffliga funktion som 1 
kommandot att man kan skriva in text. 
BRA BRA BRA. 

O kommandot 

Vem vill inte ha papperskopior av sin 
kod? Skööööönnnnt! 

W kommandot 

Register innehållet visas hela tiden 
precis som det skall vara. Hoppas att 
detta är klart för alla monitor tillver¬ 
kare från och med nu. 


COMPSOFT 

LÄTTFIL 



Det moderna registerprogrammet till VIC 64 
från din datahandlare eller: 


Comp^oFT) 

5WEDENA5 - y 


Filipstadsbacken 26, 12343 FARSTA 
Tel 08-7714500 


£ kommandot 

Detta kommando ger oss möjlighet att 
titta pä directoryt (£$) eller formatera 
en diskett eller ge andra kommandon 
till diskenheten utan att störa det jobb 
man häller på med. Denna möjlighet 
lärde jag mig älska efter en minut till¬ 
sammans med 64-MON 

[Fl] 

Att få en kopia av skärmen på skriva¬ 
ren kan inte nog uppskattas. 

[F7] 

Man har alltid tillgång till en manual 
eftersom man få upp denna skärm när 
som helst. Man behöver därför inte 
bläddra så mycket i manualen. BRA! 

[*1 

Som kopplar ur ROM/RAM är en 
funktion som man tycker är nödvändig 
pä 64:an då man gärna vill ändra de 
rutiner som finns här eller kanske läg¬ 
ea sin kod på den area som upptas av 
BASIC ROM:et dvs $A()()0-$BFFF. 
Tyvärr har jag blivit tvungen att kon¬ 
statera att vissa kommandon inte fun¬ 
gerar ordentligt när man har kod på 
någon av areorna som delas av RAM/ 
ROM. WALK kommandot tex blir 
helt värdelöst om koden råkar ligga pä 
en av dessa areor. Detta är en stor 
miss som jag hoppas är tillrättad på 
senare versioner. 

Möjligheten att konvertera mellan 
talbaser spar naturligtvis också mycket 
dyrbar tid och är något jag uppskattar. 
Det enda negativa man kan nämna i 
detta sammanhang är möjligheten att 
kunna göra enkla aritmetiska beräk¬ 
ningar i samband med konverteringen. 

En annan bugg som kan nämnas är 
att den KERNAL rutin man anropar 
för att ta in ett tecken tecken frän tan¬ 
gentbordet inte fungerar korrekt bla 
reagerar den inte på [F2] 

Slutomdöme 

Trots en del ganska tråkiga buggar så 
är detta den mest kraftfulla monitorn, 
för 64:an. pä marknaden idag. Alla 
kommandon är väl genomtänkta och 
det är en njutning att jobba med den. 
Jag kan varmt rekommendera ett köp 
av denna monitor och kan garantera 
att Du INTE kommer att tycka att Du 
kastat dessa pengar i sjön. Antagligen 
har de flesta av de konstigheter jag 
beskrivit rättats till i de versioner som 
finns i handeln idag. Hur som helst är 
64-MON det bästa köpet! 

Hedman 


66 









































Sprudlar du 
av ideér??? 

Var med i VIC rapports 
stora tävling!!! 


Gör ett spelprogram 


• Prova på att göra ett spelprogram. 

• Lätt, svårt, spännande, roligt, alla spel 
tages emot med glädje. Skicka in ditt spel 
till redaktionen. 

• OBS! Glöm inte att skriva om pro¬ 
grammet är gjort för VIC 20 eller VIC 64 


• 1 :a pris. Det bästa spelet belönas med att 
du får välja ut valfria program från 
handic electronic till ett värde av totalt 
500:— 

• Dessutom belönas varje publicerat spel 
med valfria program från handic 
electronic till ett värde av totalt 300:— 


Gör ett nyttoprogram 


• Alla får vara med 

• Dela med dig av dina kunskaper och 
skicka in ett nyttprogram till redaktionen. 

• Glöm inte bort att skriva för vilken VIC 
programmet är gjort. 


• 1 :a pris — det vinnande nytto- 
programmet belönas med 1.000:— 

• Dessutom belönas varje publicerat 
program med 400:— 


Skicka in ditt program på en kassett eller en diskett tillsammans med en kort programbeskrivning. 

Skriv namn och adress på programmet så att vi kan returnera det efter tävlingen. 

Juryn för de två tävlingarna består av Nina Linander, Matts Nilsson och Elisabeth Höglund. Till vår hjälp har vi en 
mangd oberoende VIC-användare. 

Juryns beslut kan inte överklagas. 

Ev. beskattning av vinsterna får vinnarna själv ansvara för. 
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Keyboard till VIC 64 

Jag är från Ludvika i Dalarna och har en 
VIC 64 sedan sju månader tillbaka och 
dessförinnan hade jag en VIC 20. Det 
mesta med VIC 64: an är bra men det 
finns för få möjligheter till musik. Det 
borde finnas ett keyboard som man kan 
koppla till den som man kan använda 
med ett program (ett snabbt i maskinkod 
förståsjoch få en riktig synth. Följande 
egenskaper är önskvärda: 7—8 oktavers 
bredd, möjlighet att känna av flera tan¬ 
genter samtidigt, 5—10 knappar för in¬ 
programmerade effekter, 2—3 knappar 
för att byta tonområde, 5—10 knappar 
med komp, upp till fem möjligheter att 
byta ton. OLA BLOMKVIST 

Ja, Ola vad du söker är en riktig super 
synth. Vi på redaktionen har frågat oss 


runt om detta. Din önskelista är lång och 
verkar svår att genomföra. För att få reda 
på om dessa möjligheter finns får vi vän¬ 
da oss till läsekretsen. Om ni läsare har 
någon idé så skriv till oss och berätta. 
Samtidigt som vi på red. ska fortsätta och 
söka på egen hand. Vem vet kanske kan vi 
tillsammans få iordning ett ordentligt 
keyboard. 


The Hobbit 

Jag är en ny VIC ägare och undrar om 
THE HOBBIT finns till VIC 20? Vad är 
priset och var kan man isåfall köpa det. 

Jonas Holms ten i Sandviken 
SVAR: Till VIC 20 finns inte The Hobbit 
på grund av att VIC 20’s minne inte räc¬ 
ker till för detta program som är mycket 
stort och omfattande . Vi på red. fick ett 


brev från Karl Björklund som också 
handlade om The Hobbit, där han frågar 
om hur man kommer ut ur Goblins 
Dungeon. Svaret på detta kanske någon 
läsare kan ge honom då jag tycker att det¬ 
ta att ” köra fast ” är ett av The Hobbits 
goda förtjänster som Adventure prog¬ 
ram. Dessa program ska vara svåra och 
ger då en härlig känsla när man väl har 
löst hela äventyret och så att säga har gått 
i mål. 


Hur kopierar man en flexskiva (ill 
en annan? 

Bo Svensson vill veta hur man kopierar en 
flexskiva till en annan. 

Detta kan göras på två sätt . Dels ge¬ 
nom det kopieringsprogram som följer 
med diskdriven när man köper den men 
då krävs två diskdrivar, dels genom kopi¬ 
eringsprogram som är avsedda för en 
drivesanläggning. Dessa program arbetar 
på så sätt att de läser av så mycket av en 
flexskiva som rymms i minnet. Sedan by¬ 
ter man till den nya flexskivan och lagrar 
över den nya informationen för att däref¬ 
ter byta tillbaka till skiva ett och göra om 
proceduren tills all information är över¬ 
förd till den nya skivan. 


Toronto PET 
Users’ Group 

Daniel Ridings är medlem i 
världens största klubb för 
Commodore maskiner. Den 
heter Toronto Pet Users’ 
Group. Man ska inte låta sig 
luras av namnet. De har 
stora programbibliotek för 
VIC 20 och VIC 64. 


En av klubbens grundare är Jim Butter- 
field och han är ännu en flitig bidragare 
till klubbens programbibliotek, något 
som säger mycket om standarden på 
programmen. Det finns andra väl kända 
namn utöver honom. 

Klubben har också mycket bra förbin¬ 


delser med Commodore Canada. Com¬ 
modore har satt hela sin utbildningsserie i 
”the Public domain” och skänkt hela se¬ 
rien till klubben, 51 packade disketter. 
Commodore har också lämnat ut en ver¬ 
sion av COMAL till ”the Public 
domain”. Alla intresserade kan få disken 
TPUG för $10 om man är medlem. Det 
finns en mängd program, uppåt 4000 allt 
som allt, som man kan få från dem. Här 
skriver jag mest om disk, men allt finns på 
kassett till ett något lägre pris, $6. Varje 
disk/kassett är full. I genomsnitt rör det 
sig om 35 till 40 program per disk. 

Varje månad ger klubben ut en disk för 
PET , VIC 64 och VIC 20. 

Det kostar $30 i årsavgift $40 om man 
vill ha programmen skickade med flyg. I 
avgiften ingår en tidning på 64 sidor som 
kommer ut tio ggr per år. Det finns artik¬ 
lar alltifrån nybörjarnivå till avancerad 
maskinsspråksprogrammering. En klubb 
kan gå med och på det sättet få tillgång till 
programbiblioteket. Eller så kan var och 
en av medlemmarna ansluta sig till ett för¬ 
månligare pris och kanske få månadens 
disk till valfri maskin eller för flera maski¬ 
ner beroende på hur många man är. Det 
är uttryckligen sagt att det är tillåtet för 


medlemmarna att kopiera programmen. 
Det är till och med möjligt för en butik att 
gå med att gå med i klubben och kopiera 
programmen för sina kunder, detta under 
förutsättning att man inte tar mer betalt 
än det som anses vara rimligt förden tiden 
man lägger ner på kopieringen. 

Adressen är Toronto Pet Users’ 
Group, 1912A Avenue Road Suite 
1,Toronto Ontario M5M 4A1, Canada 

Det finns en s k klubb som haft reklam i 
några svenska tidningar på sistone som 
kallar sig ” Commodore Computer Club 
C 13 ”. De säger sig ha massor av pro¬ 
gram. Jag har gått med och fått deras ka¬ 
talog. Ur det framgår att hela deras sorti¬ 
ment är hämtat ur TPUGs bibliotek men 
endast Pet program. Man bör varna för 
dem. De är dyrare än TPUG, de har ingen 
tidning och de levererar inte vad de lovar. 
Jag har beställt två disketter utan att fått 
dem eller fått någon förklaring och det är 
omöjligt att nå dem via deras telefonnr. 

Jag hoppas att ordet sprider sig om 
TPUG. Alla som äger Commodore ma¬ 
skiner har glädje av det. 

Om du är intresserad av mer informa¬ 
tion om TPUG så skriv till Daniel 
Ridings, Ryttareg. 1C, 415 03 Göteborg 


69 




















CUP-FINAL (Commodore) 

(Svårighetsgrad 9) 

1 . 5—0 Lars Kämpe, KVÄNUM 

2. 4—0 Glenn Johansson, STENUNGSSUND 

3. 0—2 Dr Darnio 


JELLY MONSTERS V1C-1905 

1. 2497850 Peter Johansson, LYCKEBY 

2. 1631 860 Pelle Gustavsson, SUNDBYBERG 

3. 705980 Anders Hellman, NOL 


RAT RACE V1C-1909 

1. 101520 Pär-Olof Håkansson, BJÄRRED 

2. 96200 Olli Pesonen, ANGERED 

3 . 92000 Jocke Blyborg, STRÄNGNÄS 

SUPERLANDER VIC-1907 

1. 90160 Michael Larsson, SOLLENTUNA 

2. 88000 Fredrik Gustafzon, GNESTA 

3. 86000 Thomas Johansson, YSTAD 

OMEGA RACE VIC-1924 

(5 skepp) 

1. 296400 Tomas Gordström, LINKÖPING 

2. 274700 Fredrik Eklund, LINKÖPING 

3. 163180 Jan Sjögren, ÅMÅL 

JUPITER LANDER VIC-1907 

1. 139900 Björn Lindman, HUDDINGE 

2. 108200 Dan Andersson, SÖDRA SANDBY 

3 . 74900 Johan Harrysson, VRETA KLOSTER 


GRIDRUNNER (LLamasoft) 

(Level 1—) 

1. 351820 Thomas Hartman, LULEA 

2. 281920 Andreas Ruschkowski, GRÖDINGE 

3 ! 260120 Jöran Omark, ÄLVSBYN 


JUMPMAN (EPYX) 

(Grand loop) 

1. 54325 Peter Blomgren, HANDEN 

2. 53025 Mattias Lind, SKELLEFTEÅ 

3. 46750 Ola Hjalmarsson, UTANSJO 


JUMPMAN JR (EPYX) 

(Valfri hastighet) 

1. 55825 Lennart Borg, TÄBY 

2 41050 Mats Palm, MÖLNDAL 

3. 32475 STUFFE 


DIG DUG (Atarisoft) 

(Valfri start) 

1. 742440 J. Aspengren, ATRIUM 

2. 115020 Glen Johansson, STENUNGSSUND 

3. 74860 Joakim Lundberg, LINDOME 


SPELREKORD 

Nu märks det att SPELREKORD har kommit igång 
ordentligt, det strömmar in rekord. Även flickor konkur¬ 
rerar i denna maskulina ”sport”. I väntan på fler temini- 
na rekord förbereds en ”TJEJLIGA”. 

Ni får observera de krav som ställs under varje spelrub¬ 
rik (meddela snarast vid felplacering-7. 

SPELREDAKTÖREN 

C.E.J. 


VIC20 □ VIC64 □ Datum 

Namn. 

Adress. 

Postnr . Postadress . 

Spel. 

Erhållna poäng. 

Intygas av målsman eller annan myndig person. 


70 























Skrivet om VIC i amerikanska tidskrifter 


Meningen med den här sidan är att recensera och tipsa 
läsarna om några av de bästa artiklarna för VIC i färska 
utländska tidskrifter. Det blir framför allt de ledande 
amerikanska tidskrifterna COMPUTE! och COMUPTE’s 
Gazette för Commodore som kommer att behandlas. Vi 
hoppas att svenska VIC-ägare på detta sätt lättare ska kunna 
välja i den flod av tidskrifter och artiklar om mikrodatorer 
som nästan håller på att dränka oss. 

av G. Berglund 


COMPUTER Gazette for 
Commodore, Maj 1984 
VIC 64:ans resurser 

Ljud på VICarna ärtemat i majnumret av 
”Gazetten”. Framförallt 64:ans resurser 
behandlas. Den innehåller ju det mest 
avancerade ljudchip som finns i hemdato¬ 
rer för närvarande. Tyvärr är det lite be¬ 
svärligt att komma åt alla finesser som går 
att göra med 64:ans ljud eftersom man 
måste POKEa och PEEKa i det oändliga 
och känna till alla viktiga adresser i ljud- 
chipet. 

Det börjar nu komma programvara 
som underlättar det mödosamma arbetet 
med 64:ans ljud. I majnumret av ”Gazet¬ 
ten” finns det bl a ett listat program för 
64:an som kallas ”Sound Sculptor” — 
ljudskulptören. Programmet arbetar 
med menyer och man använder joystick 
för att peka på det man vill göra. På detta 
sätt kan man enkelt välja det ljud man vill 
ha för var och en av de tre stämmorna. 
Förutom val av volym, vågform, 
attack/decay, sustain/release, och fre¬ 
kvens kan man också välja olika sätt att 
filtrera ljudet. Programmet tillåter dig 
också att spara de ljud du utvecklat på en 
tape eller disk. För den som vill använda 
ljuden i andra Basic-program beskrivs 
också ett sätt att, via SYS till maskinkod, 
komma åt de ljud som man utvecklat med 
hjälp av ”Sound Sculptor”. 


VIC 20 

För VIC 20 finns det tre artiklar som 
handlar om ljud. I en av dem visas hur 
man kan göra en rad effektljud, alltifrån 
spel av gräshoppor, via åska till ljud ge¬ 
nom UFOs. 

En annan artikel om ljud på VIC 20 
innehåller ett maskinkodat program med 


vars hjälp man kan skriva en snutt musik 
genom att ge kommandot PRINT#1, 
”<Sträng>”. Strängen kan innehålla 
alfabetets tecken från A till och med M 
och varje tecken motsvarar naturligtvis en 
ton. Tecknet Z producerar en paus i 
”tonsträngen”. 

Den tredje artikeln är en rätt så elemen¬ 
tär genomgång av ljudmöjligheterna på 
VIC 20. 

På spelavdelningen innehåller ”Gazet¬ 
ten” i detta nummer tre listningar. 
”Props” för VIC 64, ”Mind Boggle” för 
VIC 64 och 20 samt ”Super Sprite” för 
VIC 64. 


”Props” 

”Props” är en guldgruva för den som vill 
lära sig lite mer avancerad spelprogram¬ 
mering på 64:an. Här visar författaren i 
en utförlig beskrivning av programmet 
hur man blandar BASIC och maskinkod, 
sprites och avancerade ljudeffekter till en 
delikat anrättning. Spelet går ut på att 
med joystick lotsa en stackars pippi över 
en skärm fylld med snurrande propellrar 
till ett fågelbo där hans/hennes utvalda 
väntar. 


”Mind Boggle” 

”Mind Boggle” är en variant av det be¬ 
kanta sällskapsspelet ”Master Mind”. 
De färger som man med logikens för¬ 
måga ska gissa sig fram till motsvaras 
också av vissa ljud som programmet pro¬ 
ducerar. 


”Super Sprite” 

”Super Sprite” är programmet som ut¬ 
nyttjar den möjlighet att utvidga sprites i 


X- eller Y-riktning som finns i VIC 64. Det 
hela går ut på att lotsa ”Super Sprite” (en 
slags flygande ”Superman”) genom di¬ 
verse kryptonitbarriärer på skärmen. En 
intressant teknik som visas i det här pro¬ 
grammet är möjligheten att spara ett re¬ 
kordresultat i programmet. På detta vis 
vet man att vid nästa tillfälle som man tar 
fram och använder detta spel, vilket bästa 
resultat som tidigare uppnåtts. 


Utbildningsspel 

Ytterligare en programlistning, nu i kate¬ 
gorin utbildningsspel som tycks vara så 
populära i USA, är ”Ski Physics”. Ut- 
bildningsspelen där manfår lära sig något 
vettigt samtidigt som man spelar ett kul 
spel kommer antagligen att få en enorm 
marknad allt eftersom skolorna datorise¬ 
ras. Pass på pedagoger/programmerare! 
I ”Sky Physics” lär man sig handskas 
med förhållandena mellan hastighet, av¬ 
stånd och tid och samtidigt får man, som 
belöning vid rätt svar på uppgifterna, se 
en backhoppare göra ett flott skutt. ”Ski 
Physics” finns listad både för VIC 64 och 
VIC 20. 

”Gazetten” innehåller i varje nummer 
ett avsnitt ur en serie om maskinkodning 
för nybörjare. I detta nummer lär man ut 
bl a hur man i maskinkod flyttar ett 
objekt på skärmen. 

Bland övriga artiklar i majnumret hit¬ 
tar vi också en som lär ut hur vår långsam¬ 
ma BASIC ska fås att gå lite snabbare. 
Som exempel bör man utelämna variabel¬ 
namnet efter NEXT i FOR...NEXT- 
loopar. Fler exempel på hur man får 
BASIC att snurra fortare hittar man i 
”Gazettens” majnummer. 
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COMPUTE!, Mars 1984 
Tre listningar 

I spelavdelningen i COMPUTE!’s mars¬ 
nummer hittar vi tre listningar. Två av 
dem, ”Roader” och ”Barrier Battle”, 
går till både V1C 20och VIC 64. Det tred¬ 
je, ”Trident”, passar endast till VIC 
64:an. 


”Roader” 

”Roader” är som namnet antyder ett spel 
som går ut på att styra en bil på en mer el¬ 
ler mindre krokig väg. Vägen och bilen vi¬ 
sas i fågelperspektiv och allt eftersom spe¬ 
let fortgår blir vägen krokigare, hastighe¬ 
ten högre och en del hinder börjar uppträ¬ 
da på vägen. Det hela verkar inte särskilt 
originellt men eftersom listningen är gan¬ 
ska kort kanske det trots allt är värt mö¬ 
dan att knacka in programmet. 


”Barrier Battle” 

”Barrier Battle” kan beskrivas som ett 
”abstrakt grafikspel” för två spelare där 
det gäller att styra omkring med var sin 
barriär på skärmen och på så sätt inneslu¬ 
ta sin motspelare. Idén verkar originell 
men eftersom spelet saknar en realistisk 
”story” så blir det kanske svårt att känna 
sig riktigt ”delaktig” som spelare. 



”Trident” 

”Trident”, som passar till 64:an, verkar 
däremot nästan otäckt realistisk och är 
dessutom helt i maskinkod (flera sidor 
med siffror som ska knappas in). Det hela 
utspelar sig ombord på utbåten 
”Trident” där uppgiften är att, med hjälp 
av utbåtens dator och ens egna snabba be¬ 
slut, förgöra inkommande fienderaketer. 
Det är alltså ett slags krigssimuleringsspel 
där ens enda kontakt med fienden är den 
information man får av sin dataskärm 
ombord på ubåten. Som hjälp för att få 
inknappningen av alla siffror rätt finns ett 
hjälpprogram, MLX, som måste knap¬ 
pas in före man börjar inknappningen av 
huvudprogrammet som består av bort¬ 
emot sextusen siffror. 


”64 Explorer” 

En återkommande spalt i COMPUTE! är 
”64 Explorer” där man får diverse tips 
om 64:an. I detta nummer bl a tips på hur 
man kan fixa en ”reset-knapp” så att 
man kan klara sig ur besvärliga situatio¬ 
ner då maskinen ”hängt sig” utan att be¬ 
höva stänga av den. På så sätt kan man 
behålla värdefullt minnesinnehåll. 

Bland artiklar om programmeringstek¬ 
nik hittar man bl a en som handlar om 


”Relational Operators”. Om man någon 
gång i ett program stött på en rad av typen 
J = J *(J<10) och undrat vad det är som 
försiggår så kan man hämta en del infor¬ 
mation i artikeln om ”Relational Oper¬ 
ators”. 

”Random Music” 

En ljudartikel för båda VICarna i COM¬ 
PUTE! är ”Random Music”. Som titeln 
antyder är det ett program som spelar 
slumpmässig ”musik”. Ett kul experi¬ 
ment värt att pröva. 


Var kan jag finna tidskrifterna? 

Hur får man tag i dessa tidskrifter? I väl¬ 
sorterade Pressbyråkiosker bör man kun¬ 
na hitta åtminstone COMPUTE!. COM¬ 
PUTE ! ’s Gazette for Commodore kan bli 
lite knepigare att få tag i, vilket är synd ef¬ 
tersom det är en av de bästa tidskriften för 
VIC-ägare. Ett sätt att få tag i 
”Gazetten” är att tala med en välsorterad 
Pressbyråkiosk och be den ta hem ett 
exemplar till just dig. Ett annat sätt är att 
gå till en välsorterad bokhandel och be 
den hjälpa dig med en prenumeration. 
Man kan också ordna prenumerationen 
själv, men då måste man först ordna en 
internationell check (money order) ut¬ 


ställd på det förlag där tidskriften ges ut. 
Detta gör man på sin bank. Därefter skic¬ 
kar man checken i ett brev tillsammans 
med sitt namn och adress samt önskemål 
om prenumeration till förlaget. Här ned¬ 
an fins adresser och prenumerations¬ 
priser för de aktuella tidskrifterna. 


COMPUTE!’s Gazette for Commodore 
Subscription Services Department 
P.O. Box 961 
Farmingdale, N. Y. 11737 
USA 


Prenumerationspriset per år för COM¬ 
PUTE! ’s Gazette är US$25 (surface mail) 
eller US$48 (air mail.-7 ”Air mail” får 
man tidskriften en månad tidigare. 


COMPUTE! Magazine 
P.O. Box 914 
Farmingdale, N.Y. 11737 
USA 

Årsprenumerationen på COMPUTE! 
kostar US$30 (surface mail) eller US$42 
(air mail). • 
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Sänka skepp 
VIC 20 

Sänka skepp är ett gammalt 
hederligt spel. Robert Pallbo 
har här nedan gjort ett spelp¬ 
rogram för VIC 20 som just 
bygger på detta spel. 

Spelet är uppdelat i två program för att få 
plats i en oexpanderad VIC 20. 

Program 1: Grafik och instruktioner. 
Program 2: Själva spelet. 

Reglerna är desamma som till vanliga 
sänka skepp. Å, Ä och Ö finns med efter¬ 
som det är svensk text. Man spelar mot 


datorn och själv tycker jag att det är en 
jämn kamp. Programförklaring finner ni 
längst ner. 

Programförklaring 

100—135 Ritar ut spelplanen och hoppar 
till 3000 och 4000. 

150—250 Din bombning. 

3000—3500 Du sätter ut dina skepp. 
4000—4050 Datorn sätter ut sina skepp. 
5000-5001 Ljud för träff. 

5010-5020 Ljud för bom. 

5050— 5070 Någon har vunnit. Ljudsig¬ 
nal. Skriver ut vem. Frågar om man vill 
spela igen. 

5100—5150 Datorn gissar. 

5200—5310 Datorn håller på att sänka 
ett skepp som den har hittat på raderna 
5100—5150. 

Om någon inte orkar slå in program¬ 
met kan ni få en kassetkopia för 30 kr. 
Ring till Robert Pallbo 0451-515 68 



READY. 


10 REM **.«**im*«**** 

20 REM fiV R.PALLBO 
SS REM 1984 

40 REM ************** 

50 P0KE52,28 PQKE56,28:P0KE36863,255 FORI =810511 P0KE7168+I,PEEK-'32768+1 '• • NE"T 
60 P0RE36879,25 PRINT "H **Sri 5NKA SKEPP** " 

79 PRINT"MS AV R.P 1384." 

80 P RIH T " M S* * * * * * * * * * * * * * * *******" 

90 PRINT"S INSTRUKTI0NER" 

100 PRINT"ÄMSPLACERA UT BI HR Sr.EPP" : PRI NT" M3GEN0M ATT ANGE VSAGRriT" PPINT"M3ELLE 
R " .. 

110 PRI NT" L0BRK3T. " •' PRINT" SM ANGE VSrSWSTRA RESP." PRINT"Ä15VSERSTR POSITIONEN 

120 PRI NT "MS DU HAR 5 SKEPP. " PR I NT " MSTRVCK 1 41" 

138 r 0RR=71 EST07168+6*3-1:RERBft POKER,fl:NEXT 

140 BflTfl255.. 129,129,129, 129, 12*, 123,255,255, 123,123, 123,129,129,123,255 
158 DAT fl 255,135, 165,153,153,165,195,255,126,255,255,231,231,255.2555, i 2+ 

168 BPTfl0,38,105,169,41,41,41,38,130,135,133,255,131•158■140■255 
178 F0RR=7384T07487■REflDfl•POKER,fl NEXT 

108 DATfl36, 24,36,66, 126,66,66, 66,36,24,36,66,66,66, 36,24 
130 DATfl24,8, ^4, S : 6,66,126,66,66 

200 0ETP'i I Ffif :> " " THENPRI NT" HB S -- TRS4:<FF" ' PRINT "MDS - BOM" G0T0228 
218 GOT0280 

228 PRINT"ieffcMSPELflR IN SPELET... S" 

230 FORR-1T08 PQKE638+R,flSC<MID$("LORD RUN",R,1>) NEXT P0KE635,13 P0KE633,13 POK 
E138,9 

READY. 


110 P0KE36863,255 PR I NT " 7T=T=11 23456789B " : FORR* 1 TO 1 0 : PR I NT " Sil" CHRT < 64+R ) " 3»flflflflflflfl 
flli" 

130 NEXT PRINT" •W;1123456783D" ' F0RR=1T09 = PRINT"S3S"CHR$<64+R>"»AAflflflflAftA" NEXT 
135 PRINT"».raflRAAAflAflflfl"; : G=6 : G0SUB3888 : G0S1IB40R8:CLR ■ L=36878:3=1-3 PRINT"»", 

158 FORR=1TO15 : PRIHT,"S ", •NEXT Bi=" SDI l" 

16@ PR. NT " S" , " Sv' AR BOMBAR" ■ PR I NT, " '=1SDU " : PR I NT ,, l NPUT " 3"; flf, V$ V=VAL < VT > : VT= " " 

170 X=ASC < flT > -65 ■ P0=7966+X*22+V : IFPEEK < PO > =8THENPR I NT " »" , " TRriFF ! ' ' GOSI IE'5000 : 
GOTO208 

180 PRINT"»","S B000M!! ":GOSUB5010 : GOTO250 

200 POKEPO•2 POKEPQ+30720,2 = TR=TR+1:1FTR=17THEN5050 

210 FORR=1TO500 : NEXT GOTO150 

258 POKEPO, 3•'POKEPQ+30720,0:FORR=1TO2080:NEXT:GOSUB5108: FORT=1TO500 : NEXT : GOTO 150 


73 


























rapP 01 * 


US ' ' ; 

3012 IFXf="J"THENV=1 : GOTQ3022 

3®!! PR T NT4 " H" : R=-G • PR I NT 4 " ■ SPOS. ■■■■■■" : 1 NPUTX * ' V 

^ic5x^-SKä;76i 3 pSv + X ; IFG=3RNBN=0THENN=1 

1151 FORR=0TOG-f^IFPEEK^FO+R*V^=50RPEEK<PCI+R*V-l> = 50RPEEKtP0+R*V+2>=5THENG= ! G+l : G 

30°4 0 fFPEEK(PO*R*V+22>=5ORPEEK(PO*R*V-22>=5THENG=G*l^GOTO3022 

3047 NEXTR IF V=22fiNDR’3C < X$ > -64+G> 11 THENG=G+1 ••GOTO3022 

3048 IFV=lflNDV+G>l1THEHG=G+1 GOTO3022 __ , T 

3055 FORR=0TOG-1 : PQKEPO+R#V45•PGKEPO+R#V+307G NEXT 
3060 IFG>=3THEN3000 

3500 N=0 : RETURN 

40OF1 k=6 ; FORW= 1T05 • K=K-1 

40i5 IFRHD<1».5THENC®1 : GOT04020 

4R2^ X<W>=IHT(RND<1>*10>+1 ; V<W>*INT<RNB<1>*9>+l : IFC=22RHDX<W>+K>10THEN40i0 
4i323 I FC= 1 RNDV ( W ) +K-1 > 10THEN4020 
4*25 IFK=2RNDK3=0THENK=3■K3=1 

40I FORR=0TOK-1^IEPEEK<PP+R*C>=0ORPEEK<PD+1+R*C>=ÖORPEEK<PI''"1 + R*C)=0THEMGOTO402 

4*36 IFPEEK PB+R#C+22> =0ORPEEK<PD+R*C-22> =0THENGOTO4020 
4*4* NEXT"FORR=0TOK-1 : POKEPD+R*C4 0 : NEXT 

S P0KEL R 15 : F0RR=1T04•FORE=20*TO255STEP.5 = POKES/E = NEXT = POKES,@ = FORE=1TO10 = NEXT 
: NEXT 

I?0 ™I1::?0 R ™r=200T0123STEP-2:POKEL-1,R: POKES.R : NEXTR. POKEL-1,0: FÖKES.0 POKE 
L j 0 

505* POKEU 15 : FORR= 1T05 : FORE= 128T0255STEP2 : POKES4 E ■ NEXT : POK.ES 4 * : FORT® 1 TO 1 * NE/.T 
NEXT 

Hen pRiKr"«£# ,1[, ?B»?"a vann***#" ^print^wwmövIll r«J spelr igen J/n" getft 

5065 IFF$»"J"THENRUN 

5067 IFF$="N"THENEND 

5070 PR I NT " mm" ; ; GOTO506* 

v=int?RNDU)*10>+1 : V=INT(RND<1>#10>+1 : PD=7680+V*22+X 
5125 IFPEEK<PD+1) =20RPEEK < PD-1) =20RPEEK<PD+22 > =2QRPEEK •. PB-22 > =2 THENj 123 
S127 IFPEEK < PD > = 1AND < PEEK <PD+22 > =30RPEEK <PD-22 >-3>THÖte-l 
51 -'3 1 F2= 10R < PEEK < PD+1) -3RNDPEEK < PD-13 =3 ) THENZ-0 - GOTO51t0 

US S^|lK^r.™™Si:I T pQKlp!S30T20,0 GOSUE5010;RETURN 

515* POKEPD4 2 : POKEPD+307204 2 GOSUB5000 : Q=1 : B=B+1 6OTO j2*0 

5200 0NQG0T05210 4 5220 4 5230 4 5240 ..5250 

5210 W=-1 : GOTO5250 

5220 W=1 GOTO5250 

5230 U=-22 : GOTO5250 

5240 U=22 

5250 IFUQ=1THEN5300 

525S PD=PB+U : IFB=17THENB$=" SDRTORN" : GOTO50J0 

|lf , lF<V>10OR , T , <foRX<?ORX>10)RNDPEÉK<PD-W)=2flNDQ>=4THENPD=PD-'W:HQ-1 = 0=5 = GOTO530O 
erosa IFV>1*OPV<1*RX' > 10ORX<1THENQ=Q+1 • PD=PD-W GOTO5200 omscori -• 1 

525 Q I FPEEK <PBX>5fiNBPEEK<PD-W>=2RNDWQ=0fiNDQ>=4THENWQ-l : O-U+U ■ G.-j F UKEF 1 4 o • ä. 

tF7-1THENPOKEPD+3072* > 0 : GOSUB5010 ; Z=0 ; RETURN T mdij 

W1 FPEEK (PD> <>5flNDQ=4THÉNWQ= 1 : POKEPD 4 3 '• POKEPD+307204 OGOSUB5010; g^TURN 
5265 IFWQ=2RNDPEEK<PD>O5THENP0KEPD43:POKEPD+3072* 4 8 : GOSUB501W • Q-0 WQ-0■’ RE ’ U 

i$Z% 1 FPEEK 5 PDSsthInQ=S+ 1 ” POKEPD^ POKEPD+30720 4 8 ’ GOSUB5010 : PD-PD-W : RETURN 
5230 POkIpD^ POKEPD+3072042-GOSUB5000:0=5:0-0+W B=B+1:GOTO5250 

?3*5 IFPEEK(PD>=2ORPEEK<PD>=3ORPEEK<PD>>30THENQ=0=WQ-0:O=0=GOTO5100 

^TrnPH//pri', ^^TWPWPfikFPri *1 • POKEPD+30720 • 0 GOSUB5010 • Q—0 WU*~0 - - 1 RET .RM 
i?0 IFpIIk<PD> =5THENP0KEPD 4 2^POKEF'D+307204 2 GOSUB30*0 WQ=2 = Q=5 B=B+! = G0T05255 

RERDV. 
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Hackers - katterna 
bland hermelinerna 

Filmen War Games tema om den unga grabben, som näs¬ 
tan utlöste ett världskrig därför att han råkade komma på 
den hemliga koden till det amerikanska luftvapnets dator, 
är ingen säregen historia. 

Mest utbredd är denna sport bland hackers, att söka 
komma in på främmande datorer, i USA, men t.ex i Ham¬ 
burg t.ex. finns också en sådan klubb av hackers som heter 
Chaos Computer Club. 


Många ungdomar i åldern mellan 14 
och 17 hamnar efter många timmars 
ivrigt hackande på ett eller annat sätt i 
ett främmande datornät. Den 14-årige 
Eric Stadjas fann nyckeln till databan¬ 
ken hos USAs försvarsministerium. 
Bröderna Greg (14) och Gary Knut¬ 
son (15) kom helt plötsligt in på rymd- 
forskningslaboratoriet NASA. De ha¬ 
de med sin dator spårat upp ett hem¬ 
ligt telefonnummer och kunde sedan i 
timmar sitta och njuta av alla hemliga 
uppgifter. 

Sedan finns det en annan typ hac¬ 
kers - de som jobbar hos företag med 
datorer. En programmerare kan t.ex. 
lätt skriva till en liten programsnutt i 
vilken han tillförsäkrar sig alla öresu¬ 
tjämningar. Om man räknar mängden 
av dessa, så blir det per år en icke 
föraktlig summa. Numera börjar man 
också att göra kopior av komplicerade 
program och säljer dessa till en kon¬ 
kurrent. Här kan man göra en vacker 
slant. 

Den nya Datavisionen lär vara (åt¬ 
minstone i Västtyskland) lätt att tran- 
ga igenom och hackers kan vandra 
omkring bland konton och se vilka 
transaktioner som gjorts. 

Att knacka koderna till spelprogram 
tycks i USA ha blivit en verklig sport. 
Det finns till och med en Queen of 
Hackers. Hon hade knäckt 800 spel- I 

Slumpen... 

igen! 


program och vänligen delat med sig till 
liktänkande kollegor. Denna verksam¬ 
het kostar företagen stora pengar i för¬ 
lorade inkomster. Det senaste inom 
kopierskyddet är laser, men även där¬ 
för finns det numera program att kö¬ 
pa, så att man kommer igenom dessa. 

Copyright gäller ju för upp¬ 
hovsmannen, men egendomligt nog 
fungerar det ej. 1 höstas läste jag en 
tysk datortidning och den hade 36 si¬ 
dor med Software till försäljning. Ett 
minimum av annonsutrymme använ¬ 
des av företag som sålde program. 
Den övervägande delen av annonser¬ 
na bestod av 4-raders annonser från 
ungdomar, vilka sålde kopior av ko¬ 
pior. 

På många amerikanska kopior står 
namnet på den hacker som knackat 
programmet. Ibland står bara signatu¬ 
rer eller något roligt namn. 

Ett besvärligt program för hackers 
var Zaxxon för VIC-64. Redan i okto¬ 
ber annonserade ett företag i Berlin 
att man hade Zaxxon. Det var emel¬ 
lertid en bluff. Zaxxon var det stora 
dragplåstret i annonserna för att få 
kunder i den hårda konkurrensen. All¬ 
tid stod ett beklagande, att Zaxxon 
tyvärr ännu ej var tillgänglig. I början 
av april emellertid lossnade det och 
Zaxxon fanns då att tillgå - även utan 
kopierskydd. Priset ligger mellan 60 


En slumpmässig händelse är en händelse 
vars orsak man ej känner. Detta gäller 
även för slantsingling i verkligheten. 
Ingen händelse utan orsak! 

Vid slantsingling med VIC kan man be¬ 
räkna utfallet, men detta är i teorin möj¬ 
ligt även för verklig slantsingling. För¬ 
delen med att simulera slantsingling med 
dator är naturligtvis att man då kan upp¬ 
nå seriestorlekar som ej är praktiskt möj- 


och 90 kr, vilket ju är billigt med tanke 
på ett svenskt pris över 500 kr. 

Den ovan nämnda klubben Chaos 
Computer Cluc ger även ut ett med¬ 
lemsblad. Medlemmarna är utåt an¬ 
onyma, men de verkar vara insatta i 
sitt ämne. Medlemsbladet heter Da- 
ten-Schleuder, vilket kanske kan över¬ 
sättas Datakatapult eller -centrifug. 
Här talar man initierat om vilka dato¬ 
rer man skall använda, när man vill ge 
sig ut på jakt. Redaktionen (utan 
namn) meddelar t.ex. att man skall 
inte ha en VIC-64 på grund av det usla 
(beschissene) gränssnittet för diskett¬ 
en. 

Något gott kommer emellertid ut av 
hackandet. Chaos-folket t.ex. anläg¬ 
ger fiktiva konton hos bankerna, men 
talar sedan om för banken vad de gjort 
och påtalar svagheterna i deras sys¬ 
tem. I USA har man gått så långt, att 
man faktiskt anställt en hacker för att 
han skall tala om var svagheterna lig¬ 
ger i datasystemen. 

Vill du ha ett nästan säkert kopier¬ 
skydd för dina program, så skall du 
använda primtalsmetoden. Ta fram 
två primtal med vardera över 20 siffror 
och multiplicera dessa och lägg in dem 
i programmet. Du kan hålla pä att för¬ 
söka knäcka den koden i 5 milj. år. 

B.L. 


liga i verkligheten. Detta som svar på 
Lennart Brynielssons kommentar i num¬ 
mer 4 till min artikel i nummer 2 om expe¬ 
riment med VIC 20. 

Det som Lennart däremot tar upp och 
som är värt att beakta är upprepnings- 
effekten. Med mer avancerad program¬ 
mering kan dock detta problem bemäst¬ 
ras. En uppgift för VIC-användare? 

Bernt Ekström 
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Programlistningar för CBM-64 

Följande programtips har VIC rapport fått av Göran- 
Anders Jönsson i Oxie. Vi tycker på redaktionen att pro¬ 
grammet är utmärkt då det ofta kan vara svart att förstä 
grafiksymbolerna vid nydelning. Kanske ett program för 
alla som sänder in program till VIC-rapport? 


Jag har länge retat mig på alla dessa 
programlistningar med mer eller 
mindre oläsliga krumelurer, som skall 
föreställa färg och cursorförflyttning- 
ar. 

Bifogade program eliminerar detta 
problem genom att alla icke skrivba¬ 
ra” tecken byts ut mot klartext inom 
hakparenteser. 

Programmet är skrivet för STAR 
Gemini-skrivare och kontrollkoderna 
för denna måste givetvis ersättas med 
de kontrollkoder som gäller för den 
skrivare som användes. De program¬ 
rader som i så fall är aktuella är: 

10020 PR$ avslutar förstorad text efter 
programnamnet 

10080 sekundäradressen 5, CHR$(14) 


= SO börjar förstorad text. ESC 7 0 
väljer skrivarens originalteckenupp¬ 
sättning 

16020 CHR$( 169) ger den lilla triangel 
som markerar "Shift" 

2000 - 20060 Subrutin för att skriva 
teckenförklaring 

22030 Återställer skrivaren till svenska 
tecken 

Den som använder bandspelare i stäl¬ 
let för disk måste dessutom ändra rad 
10090. 

Programmet klarar i sin nuvarande 
form inte grafiksymbolerna men det är 
bara att fortsätta fylla på raderna 
12420 - 13490. 


Programmet skrevs frän början där¬ 
för att CHR$( 147) ”reverserat hjärta” 
som Commodore använder för att ren¬ 
sa skärmen, används som signal tör att 
sätta printern ”off line", dvs att en 
normal listning till printern slutar när 
detta tecken kommer. 

För att använda programmet, gör så 

här: 

1. Lista det aktuella programmet till 
disk eller band som en sekventiell 

fö. 

2. Ladda listningsprogrammet och 
svara med det namn du har på 
filen 

i punkt 1. 


i_XSTPROGRA ä-1 

C CL 2 -CUESOR DQWN 
CCR:=CUPSOF F: IGHT 
c Fr.1 =FUNCTIONKEYS 


r CU 2 --CUESCF' JP 
r C.n 2=COMMODORE<KEY• 

r ^-i tpr 


_2=C'JP2CF: LEF” 

; = t 


i OOOu 
i oo i o 
10020 
i 0030 
10040 
i 0050 
10060 
10070 
10080 
000 
10090 
1Ö100 
101 10 
10120 
10130 
10140 
10120 
10160 
10170 
SLUT 
10180 
12000 


__ , ,. x .|,„ r tti i o c ■ mtcc i , " r AN GRAFI K SY MBCL2P 
SE!*!*#* PROGRAM EOER LlfcTNING •‘ 

INF'UT "FILNAMN= NA* _ . , , Ta c o-r.-c T cy- 

jc* s ruRi 4 -CHR* (37) +CHR* to) : REM lSC W O Av_t—'TAR - • 

IF^LEnVnAS) il 6 THEN FRINT "MAX 16 TECKEN": GO^D lOOOU 

FEM#** ******************* ******** _ A _ Tfcir 
sr-ertv SKRIV PROGRAMNAMN OCH TECKENFÖRKLARING 

^EM ,'AELJ TECKENUFPSAETTNING MED HAKPARENTESER 

REM***###************************ „, tinMR4 jwsjdj it sSOSUBi: 

2PEN1 . 4 , S. CHR* (14) +NA*+PR* : PR I NT# 1 . CHR* < 2 > -RF-.,, C,, 

0FEN 2.2.2.NA*+".S,R": REM OPPNA LAE3FIL 
SET#2. IN*. IN*: REM SKIF'F'A — BYTEN 
QF=— i* TES=" " : B$=" A*=" " 

GET42.IN*: IF IN*K>CHR*<13) THEN A*=A*+IN*: GOTO 

rp 57 64 THEN 22000: REM t-ND OF _ Ii-E 

for 1 = 1 TO i_EN (AS- > : TE*=M I D$ (A$. 1. 1 > * B “ASC __ 

-c- qT HENQF =QF # — 1: GOTO 14000: REM HI.TAT E.. - - - 

y p* Akm o., "THEN 14O0Ö: REM SKF:I VBARA i EuKEN . _ 

IF LOInTsI) ThIn if Sf--1 THEN14000Srem citationstecken saknas I RhD 

IP GF=-1 THEN B*=B*+TE$: GOTO 14020 
REM#*» UTBYTESTABELL *** 
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12010 

IF 

13/•- 1 ■— 

— i. / 

12020 

t nr 

X • 

p=9f) 

12030 

IF 

B=29 

12040 

IF 

B =-32 

12050 

IF 

3=145 

12060 

IF 

B= 148 

1 2070 

IF 

B= i 57 

12080 

IF 

E=5 T! 

1 2090 

IF 

tj— 1 o 

12100 

IF 

B=19 4 

12110 

IF 

B=2S 

12120 

IF 

B=30 ' 

12130 

IF 

o— ;r ^ 

12140 

IF 

B= 129 

12150 

IF 

B= 1 44 

12160 

IF 

B=i46 

12170 

IF 

B= 147 

12180 

IF 

B= 148 

121 90 

IF 

B= 149 

12200 

IF 

B= 150 

12210 

IF 

B= 151 

12220 

IF 

B= 152 

1 2230 

IF 

B= 153 

12240 

IF 

B= 154 

12250 

IF 

B=155 

12260 

IF 

B= 156 

12270 

IF 

B=158 

12280 

IF 

B= 159 

12290 

IF 

B= 133 

12300 

IF 

B= 134 

1 2310 

IF 

B=135 

12320 

IF 

B= 136 

12330 

IF 

9=137 


THEN SQSUB 18000: : GOTO 14020 

THEN GOSUB 18000: B$=B$+"DEL3 ,! : GOTO 14020 
THEN GOSUB 18000: B$=B$+"CF:3": GOTO 14020 
OR B= 160 THEN GOSUB 16000: GOTO 14020 
THEN GOSUB 13000: B$=3f+ "CU3": 

THEN GOSUB 18000: B$=B$+"INS3" 

THEN GOSUB 13000: B$=B$+"CL3": 

HEN B$=B$+"CWH73": GOTO 14020 


GOTO 14020 
GOTO 14020 
GOTO 14020 


THEN 

THEN 

THEN 

THEN 

THEN 

THEN 

THEN 

THEN 

THEN 

THEN 

THEN 

THEN 

THEN 

THEN 

THEN 

THEN 

THEN 

THEN 

THEN 

THEN 

THEN 

THEN 

THEN 

THEN 

THEN 


B$=B$+"CRVS QN3": GOTO 14020 


B$=B$+"CHOME3" 
B$=B$+"CRED3": 
B$=B$+"CGRN3": 
B*=B$ J -" CBLU3 " : 
B$=B$-t-" CC. 1 3 " 
B$=B$+"CBLK3" 
B$=B$+"CRVS 
B$=B$+"CCLR3" 
B$=B$+" C INS3 *' 
B$=B$+"LO.23" 
B$=B*+" CC. 33 ’• 
B$=BS+"CC.43" 
B$=B$+"CC.53" 
B$=B$+"CC.63“ 
B$=B$+"CC.73" 
B$=B$+"CC.83" 
B$=B*+"CPUR3" 
B$=B$+"CYEL3" 
B$=BS+“CCYN3“ 
B$=B$+"CF13“ : 
B$=B$+ "C F3 3 " : 
BS=B$+"CF53" : 
B$=B$- l " CF73 " : 
B$=B$+"CF23": 


GOTO 14020 
GOTO 14020 
GOTO 14020 
GOTO 14020 
GOTO 14020 
GOTO 14020 
OFF 3": GOTO 14020 


GOTO 

1 4020 

GOTO 

14020 

GOTO 

14020 

GOTO 

14020 

GOTO 

14020 

GOTO 

1 4020 

GOTO 

1 4020 

GOTO 

14020 

GOTO 

14020 

GOTO 

1 4020 

GOTO 

14020 

GOTO 

14020 


GOTO 

GOTO 

GOTO 

GOTO 

GOTO 


14020 
14020 
14020 
14020 
14020 


12340 
12350 
12360 
12370 
1233C 
12390 
12400 
12410 
14000 
1 40 i 0 
14020 
1 4030 
16000 
1 6010 
16020 
1 6030 
i 6040 
16050 
1 6060 
16070 
13000 
ISO 10 
18020 
1 8030 
18040 
13050 
18060 
20000 
20010 


IF 

IF 

T CT 


: GC7 
GOTO 


1 40 *7 

L 4020 


ee: 


IN 


IF £= 133 THEN B$=B$->-" C lr 43 " : GOTO 14020 
IF £—139 THEN B$=B$+"CF63"; GOTO 14020 
IF B® 140 THEN B$=B$+" CFS3 *’: GOTO 14020 
IF B=S THEN BS=B*+"C"+CHR*C169>+"C.OFF3 
B=9 THEN B$=B*-t-" C "+CHR$ < 169)+"C. QN3 " 

B—14 THEN B«®B$+»CuC3”: GOTO 14020 
B=12fc THEN ": GOTO 14020 

IF B=142 THEN B$=B$+"CLC3": GOTO 14020 
REM#*# SLUT FAA UTBYTESTABELLEN *** 

B$=B$+TE$: SEM INGET TECKEN HI^TA" I 
NEXT 

F'F:INT#1 . B$: GOTO 10110: SEM NY RAD 
REM#** HITTA- EN SPACE *** 

X = l; IF 8=32 THEN SPt= ,, SF": GOTO 1603C 
X = i: IF B=160 THEN SP$=GHF:$ (169) +"SP‘ 

X$=MID$iA*. I+-X. 1) : IFX5 =:t E$ THEN x=x + 

IF X=i THEN Bs=B$+t E ^ ; c ;E -y jrn 
IF X >9 THEN X1®INT<X.'10) -f-48: X 2=X— 1 0 * I NT ( X1 0 > + 45: 30 T 
I = I+X-i : Bf=BS + " C 1 —CHR$ (X+48) + "*' +3P9E+ " 3 " • RETURN 
I-I+X-l: B$=BS+“ C " +CHF$ XI) +CHR*(X2) + ,, *-‘+SP$+" 3 '•: S£ T i 
REM#** HITTAT CURSORFLYTTNINS. DElETES ELuER INSER t S * 
X = 1 

X*=NID*(A*.I+X.l>: IF X$=T£$ THEN X=X+1: GO-Q 
IF >: = : THEN E^-i-" D “ s RETURN 

IF X = -HEN X 1 = INT(X/10)+4S : X2=X-iG#INT . X/10 
I — I"RX — 11 B$=B$ 4-" C "+CHR$ (X+48) : RETURN 

I =1 t-X-1 : S$=B$+" C ”-rCHR* ( X-l) +CHR* ' X2) -*•" *" : RETURN 

T-OKENFOERKLARING EFTEF PROGRAMNAMNET *** 
7*SF 3 1 i D$= 4 ‘ IC. "+CHR$ (110.' +" 3=C0MMnDCF.E ' - r — 


IM SKIFTAD sr a; 
30TO 16030 


■18020 
;+45: 50 1 


** 


: ;scic 
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rapP * 1 



RÄTTELSER 


till att stacken på sida 1 så småningom blir 
full med icke utnyttjade återhoppsadres- 
ser. När det händer går det mesta snett. 
Därför ska följande rader skrivas till eller 
ändra. Man hoppar då i samtliga fall ur 
subrutinen med retum och 1-ställer varia¬ 
beln IK när aktienamnet inte kan hittas. 

270 IF NY = 1 THEN: NY = 0: GOTO 
1090 

341 IF IK = 1 THEN PRINT ”Q STA¬ 
VA RÄTT TACK!”; GOTO 337 
349 PN = PN + 1 


528 GOSUB 69%: GOTO 1400 
562 GOSUB 6995: GOTO 558 
780 GOTO 528 
6991 IK = 0 

69% PRINT ”QQ SAKNAS I RE¬ 
GISTRET”; FOR X= 1T01500: Next: 
1K= 1:RETURN 
7011 IF IK = 1 THEN 20 
Dessutom missade vi att publicera den 
kopieringsrutin som finns i anslutning till 
programmet. Den följer här: 


IVIC rapport nr 4 pre¬ 
senterades ett program 
om Stockholms Fond¬ 
börs. Detta program 
innehåller en bug. 

Programmet hoppar i vissa lägen ur sub¬ 
rutinen i 6990 med goto 20. Det leder ju 


READY. 


5 DIMFK300? 

10 PR I HT " ZlSMtfiTiTsTsTIEHV " 

2a PR I HT " :«!lP.T=T=T=TilI HLÄSHI HG " 

PÄ PRIHT"ÄWsTäfcTsUSKRIV FIL" 

05 PR I HT" WWsTsfsTilAVSLUTfl" 

40 PRIHT"WffläffiTsTsIflHGE ALT" 

50 RETV$ : IFV$=" "THEN50 
IFV$="I"THEHGOSUB100 
IFV$="S"THEHGOSUB200 
IFV#="A"THEHEHD 
GOTO 10 

10R PR I HT " riSMMRHGE BöRSBfiTUM" 

110 INPUTfl<0) . , TP „ ö/lVU „ „ nn 

120 0PEH 1,8,15," I" : QPEH2,8,2,bTR$ fl0 > > + •• o, R 

1P0 FORI=0TO278 
140 IHPUT#2,A<n 
15,0 PRIMTAU); 

160 NEXTI 

170 CLQSE2 : CL0SE1 

200 IFR<0'> =0THENPRIHT"IH BöRSDAG" : F0RI = 1TO2080 : NEXT : RETURN 


56 

57 
60 
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205 PRI NT "ÖHAR DU BVTT DISKETT .T/N" 

206 GETVT'IFV$=""THFN206 

207 IFVTO " .J " THENRETURN 

2 1 8 OREN 1,3,15, "I" :0PEN2, 3 , 2 , STRT <fl <0> >+", s , w" 
220 FORI—0T0273 
230 FRINT#2,fl <I> 

240 PRINTFKI); 

250 NEXTI 

260 CL0SE2 : CL0SE1 

270 RETURN 

REflDV. 


I VIC rapport nr 4 sidan 46 har vi glömt att publicera programlistningen VIC Auto 
Meny. Den följer här nedan. 



Miljoner och... 

VIC rapport årg 3 nr 2 sid 17 


Att förstå stora tal kan ha sina problem. 

Frekvensen 7 MHz bör ge 7 miljoner 
”tick” per sek och inte som anges en mil¬ 
jon. 

I första spalten på sidan 13 skulle det på 
två ställen stått tusendels sekund och inte 


miljondels. Addition i basic tar c:a 0,5 ms 
= 500fis. Längre ner skulle det stått att 
man kan addera fem och sju ungefär 2000 
gånger på en tusendels (1 ms) sekund. 

Amerikanska ton = 907 kg. 

Seved Martinsson 
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rapP° rt 


LÄSARTIPS 


Förbättrad Å, Ä, Ö till 
VIC64 

Anders Arneskog har ett förslag till för¬ 
bättring av ÅÄÖ-programmet i nr 5/6 
1983. Anders har skrivit en maskin- 
språksrutin som kopierar teckengenera¬ 
torn till RAM-minnet. Den ursprungliga 
delen av programmet som lägger in de nya 
tecknen har man sparat som den är. Det 
gör att man enkelt kan göra egna figurer 
och tecken. Eftersom skärmminnet flyt¬ 
tas till positionerna 49152—50151 så blir 
områdena mellan 1024 och 2047 ledigt. 
Rad 390 flyttar ner Basic-starten till 1024. 

1 och med detta finns 39K ledigt för pro¬ 
grammering. Rad 390 som innehåller 
NEW tömmer också datorn. Var därför 
noga med att spara programmet innan det 
provas. Om du trots allt skulle glömma 
att spara så kan du få tillbaka program¬ 
met om du skriver: POKE 44,8(RE- 
TURN), LIST(RETURN) 


Stockholms 

VIC-klubb 


Stockholm har äntligen fått en VIC- 
klubb för VIC 20 och VIC 64 användare. 
Medlemmar får bl a en medlemstidning 4 
ggr om året. Den ska bl a innehålla list- 
ningar, programmeringstips, spelrecen¬ 
sioner och artiklar mm. 

SVC ska också försöka upprätta ett 
stort programbibliotek. SVC har en egen 
klubblokal för programmeringskvällar. 
Kurser i programmering ordnas möjligen 
senare. 

Klubben vänder sig främst till VlC-an- 
vändare inom Stockholms-distriktet. 
Men även användare utanför Stock- 
holmsdistriktet är välkomna. 

Årsavgiften är endast 50:—. Beloppet 
sätts in på postgiro nr 4816013-9. Skriv 
namn och adress + personnummer på 
blanketten. Vi hoppas att ni kommer 
med. 

För med info, skriv till: 

Stockholms VIC-elub 
c/o Svensson 
Mjölnarstigen 4b 
19147 Sollentuna 
Hälsningar 
Marcus Wilhelm 
(ordförande) 


Programmeringstips 

Det är som bekant mycket lätt att ändra 
det man skriver in på skärmen. I regis¬ 
terprogram och vid ordbehandling vill 
man ofta kunna ta fram förut inskrivna 
strängar, ändra dem och sedan lagra dem 
på nytt. 

Här är ett förslag som utnyttjar da¬ 
torns egen skärmeditor. 

Programmet är en demonstration som 
lätt kan modifieras för egna önskemål. 

B$ i rad 10 kan vara en sträng som häm¬ 
tats från datorns inre. Denna skrivs ut i 
rad 20 varefter cursorn flyttas upp ett steg 
och B$ nollställs. 

SYS65487 i rad 30 är datorns tangent- 
avkänningsrutin. Den avlämnar sitt tec¬ 
ken i minnescell 215. B$ = B$ + A$ sätter 
samman tecken för tecken. I rad 40 kän¬ 
ner man av ifall returntangenten trycks. 
Om så är fallet hamnar vi på rad 50 och 
det nya B$ skrivs ut. 

Kör programmet och andra till vil- 
NEWS och tryck return. Se vad som hänt. 

Om helt nya saker skall skrivas in slo¬ 
pas rad 10. Prova. 

5 PRINT”<CLR HOME>” 

10 B$ = ”V1C-NYTT” 

20 PR1NT B$”<CRSR 
upp>”:B$ = ”” 

30 SYS65487:A$ = CHR$(PEEK- 
(215)):B$ = B$ +A$ 

40 IF A$<>CHR$(13)THEN 30 
50 PRINT BS 

Ovanstående passar både VIC 20 och 
64. B$ hämtas resp placeras lämpligen i en 
indexad variabel typ B$(n) 


Intelligent kontaktdosa 

Många ägare av en VIC 64 har förargat 
sig över, att systemet VIC 64, VC 1541 
samt skrivare sällan fungerar vid igång¬ 
sättningen. En viss inkopplingsordning 
måste till för att allt måste gå efter ritning¬ 
arna. För att förenkla detta problem finns 
nu en dosa för fem stickkontakter. Av 
dem är tre försedda med elktroniska relä, 
vilka styr inkopplingen av datorenheter¬ 
na i rätt ordning. Vid inkoppling måste 
alltså stickontakterna för de olika enhe¬ 
terna sitta rätt, t. ex. 1) dator 2) bildskärm 
och 3) skrivare. Två uttag är neutrala och 
kontaktdosan har också en huvudst¬ 
römbrytare. Pris ca 600 kr. Skulle dosan 
vara riktigt bra, så skulle den också ha en 
säkring för t.ex. blixtnedslag vid åska. 
Vägguttag med sådan säkring finns och 


kostar ca 120 kr. Kontaktdosan ovan 
finns att köpa hos: 
futura Datentechnik oHG 
Messdorweg 22 
3109 Wietze 
Västtyskland 


Programmering av 
funktionstangentema 

De programmerbara tangenterna f 1 — f8 
har ASCII-koderna 133—140. (Se hand¬ 
boken). Förbindelse med dessa tangenter 
är endast möjlig i BASIC i program- 
modus t ex 

10 GET A§:IFA§ = ”” THEN 10 
20 IFA§ = CHRS§(133) THEN PRINT 
”ALLT KLART?” 

30 GOTOIO 

Den som inte vill använda tangenterna i 
programmodus måste skriva ett maskin¬ 
program, s.k. CHRGET-rutin. Denna 
rutin använder datorn för att hämta tec¬ 
ken och utvärdera dem. Om man i denna 
CHRGET-rutin lägger in ett underpro¬ 
gram, vilket frågar tangenterna enligt 
ASCIl-kod, så kan tangenterna program¬ 
meras med önskade funktioner eller tec¬ 
ken. För den mängd tecken som kan 
komma i fråga finns ingen begränsning. 
Allt vad som kan programmeras kan ge¬ 
nom en tangent också avropas. 
CHRGET-rutinen finns i området 115 till 
138 eller hex. §0073 till §008A. 

BL 

Några POKEs för VIC 64 

POKE 808, 239 RUN/STOP fungerar ej 
POKE 808, 237 RUN/STOP fungerar 
åter 

POKE 775, 200 LIST fungerar ej 
POKE 775, 167 LIST fungerar åter 

BL 


VC 1515 FOR VIC 64 

Har du haft en VIC 20 och bytt upp dig ull 
en VIC 64? Har du en skrivare VC 1515 
och undrar varför den inte fungerar till 

VIC 64:an? j 

Det kan du själv rätta till med en löd¬ 
kolv. I VC-1515 sitter en Quarz 6 MHz, 
vilken är ansvarig för taktgivningen. Byt 
ut den mot en 5 MHz eller mot en prisvärd 
4,43-MHzQuarz frånenTV-apparat och 
din skrivare fungerar nu med din VIC 64. 
Ett tips som spara några sköna tusen- 
lappar. 
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Introduktion till BASIC del 1 

I boken ”Introduktion till Basic del 1” finns en del tryckfel. 
Dennis Karlsson har upptäckt dessa och påpekat dem för re¬ 
daktionen. Nedan följer en del av de rättningar Dennis har 



gjort. 

Sid 3, andra spalten: 

1 den svarta rutan står 
LOAD ”TESTCARD”, 
i stället skall det stå 
LOAD ”TESTPROGRAM” 

Sid 4, andra spalten 

Här har ett fel, liknande det ovan, smugit 
sig in 

LOAD ”HANGMAN”, 
skall bytas ut mot 

LOAD ”HÄNGNING” 

Sid 18 andra spalten, tredje raden 
efter figuren 

Efter figuren står det ”vänstra hörnet”. 
Där skall det istället stå ”högra hörnet”. 

Sid 24, första spalten 

I figuren står det 
PRINT ”KATT; ”FISK”, 
i stället skall det stå 
PRINT ”KATT, ”FISK” 

Sid 34, figuren 

Första raden i figuren är fel. 

Ett = -tecken har försvunnit. 

Raden skall istället se ut så här 
10A$ = ” + +” 

Sid 46, första spalten, tredje raden 

Istället för raden 

LET A$ = ”JANNE” skall det vara 
LET A$ = ”JAN” 

I annat fall stämmer det inte med facit. 

Sid 48, andra spalten, fjärde raden 

I boken står: 


40X$O”ABBBB” THEN 20 
Ett IF har fallit bort. 

40 IF X$<>”ABBBB” THEN 20 

Sid 49 

I den andra övningen står det följande: 

P = 0 

20 PRINT P, P*P 
30 P = P + P 
I stället skall det stå 
10 P = 0 
20 PRINT P, P*P 
30 P = P + P V30P = P+l 

Sid 63, första spalten, nittonde raden 

30 A$ = ”**” måste ändras till 


Sid 61, andra spalten, nionde raden 

Där står det 

50 PRINT P; ”*12”;P*12 
I stället skall det stå 
50 PRINT P; ”*12 = ”;P*12 

Sid 62, första spalten 

Det fattas en rad 
25 PRINT P; ”*12 = ”; P*12 

Sid 63, första spalten, elfte raden 

50 IF G >11 THEN 30 skall ändras till 
50 IF G <11 THEN 30 


30 A$ = A$ + ”*” för att den skall göra loopvariablen till en konstant. 

Sid 79, andra spalten, tjugoandra raden 

10 PRINT ”HUR GAMMAL ÄR DU”; AG skall vara 
10 INPUT ”HUR GAMMAL ÄR DU”; AG 

Förutom de rättelser som här är publicerade finns en del stavfel i texten, men då de 
inte har någon betydelse för övningarna går vi inte in på dem här. 

Vi på redaktionen hoppas att ni ska kunna tyda rättelserna och rätta felen i er egen 
bok. Vi hoppas även att det nu ska vara enklare att använda ”Introduktion till Basic del 
1 ’ i fortsättningen. Och ett tack till Dennis Karlsson från Göteborg, som har gjort alla 
dessa rättelser. 


GRAT1SANNONSER 


SÄLJES 


Databas CBM-64 

Seriös registerhantering med diskett¬ 
enhet. Uppdatering, A4-etikett, utskrif¬ 
ter, kassettbackup. Manut + diskett 


255:- 

Tel 08-648609, Kent. 

VIC 20 spel 

3 st för 50:—. Flying Saucer Attack, 
Lotto med rättning -t- 3 K, Minefield, 
stryktips med rättning + 3 K, Arrow, 
Hangman till VIC 20 
Spela Hangman på din VIC 20. Ett roligt 


spel på kassett för 2 personer. Sätt upp ett 
pris och tävla mot kompisen eller någon 
annan du känner. Endast 35:—/styck. 
Ring Mikael Carlsson, tel 0383-17084 

Backgammon + 3 K, Amok (JS), Dodge- 
cars, Mini Pacman. Vilka vill du ha? 

Tel 0764/60325, Tore Gullstrand. 
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Billiga VIC 20-spel 

25 roliga och bra spel, Invader-fall, 
Moonlander, Alien Bliiz, Enarmad 
bandit, Invaders, Phyton, Rat-trap, ove- 
raum, VICMAN = Jelly-mon. Betala in 
75:— på pg 4817891-7, Erik Berglund, 
Domarvägen 67, 43344 Partille. Önskas 
postförskott 10:— extra. 

VIC 20-spel 

Maskinkods- och Basic-spel till rimliga 
priser. Ring eller skriv till Anders Lund¬ 
berg, Ljungvägen 7, 92100 Lycksele. Tel 
0950/14429 

VIC 64-spel 

Fort Apocalyps, Falcon Patrol, Snookie, 
100 :—/styck. Motor Mania, Moon- 
buggy, Hexpert, Jum Man Jr, och Jump- 
man, 75:—/styck. 

Alla spel är på disk. 

Tel 08-856649, André 
VIC 20-listning?!! 

Lista radvis upp eller ned med mitt M- 
codsprogram. Tryck L och return, styr se¬ 
dan med CRSR-pilarna. Du kan gå in och 
ändra som vanligt i programmet. Kassett 
+ beskrivning 60:—. 

Ynge Lindblad, Box 122, 43017 Skäl- 
linge. Tel 0340-35444 
VIC 64 

CALC RESULT easy säljes för 500:—, 
använd 2 veckor. 

Tel 0322-51503 
VIC 64-spel billigt 
4 st toppspel till VIC 64 säljes för endast 
50:—. Exterminator, Frogger, Aracia 
och Hungry Horace. 

Ulf Eriksson, Hagmarksvägen 22, 82400 
Hudiksvall. Tel 0650/15782 
VIC 20 

VIC 20 säljes med bandstation, 4 böcker, 

3 plug-in, 100 spel och program och två 
köpta kassetter. Allt för endast 3000:—. 
OBS! Disk ingår. 

Ring 031-281618, Jonas Sjöklint. 

ÅÄÖ VIC 64 
Komplett sats med tangenter och chip. 
Ordinarie pris 250:—, nu endast 150: . 

Bertil Nilbo, Grindögatan 62,25372 Hel¬ 
singborg. Tel 042-222436 
VIC-spel 

Jag säljer 5 super-bra spel på VIC 64. 
Dom heter Zaxxon, Zeppelin, Snokie, 
Archon, Neptuns daughter, för endast 
450:—. 

Ring till Jonas Sjöklint, tel 031-281618. 
OBS! Kan även säljas ett och ett för 
100:—/styck. 


Diverse program till VIC 20 säljes 

space på kassett. Lista mot 1:90 i frimär¬ 
ken sändes till Jonas Svensson, Tvär- 
handsgatan 16, 50247 Borås 
C64-program 
Följande program säljes mot postför 
skott: 64ASM (350:—), Pilot64 (95:—), 
Sprite editor (60:—), Dis-assembler 
(60:—), Unnew (25:—). 


Blev du intresserad, ring 0921-14690, Jan 
Blom 

VIC 20, VIC 64 

VIC 20: Cartiridge Star battle 150:—. 
VIC 64: Alla sorters program bytes och 
säljes. Skicka lista eller ring Erik Bertell, 
Ringvägen 23, 82400 Hudiksvall, tel 
0650-16174. Ring idag! 

VIC 64-program 

Nytto- och underållningsprogram säljes. 

Du måste ha Simon’s Basic för de flesta 
programmen. 

Johan Harrysson, Båtvägen 5, 59061 
Vreta Kloster 

VIC 20-spel 

Scramble, Asteroids, Cosmidas, Vic- 
panic. Road Toad, Astro-fighters, Multi- 
tron, Amok, Destroyer, Snake-pit. Ny¬ 
pris ca 1000:—, säljes för 100: 

32 kilo bytes köpes. 

Tel 090/119392, fråga efter Fredrik 
Stockholms fondbörs 
presenterad i VIC rapport nr 4 kan köpas 
av författaren. Ring eller skriv till Lars- 
Olof Larsson, Lappandersväg 19, 78165 
Borlänge. Tel 0243-171 89 
Disketten innehåller även datafiler med 
kurser sedan januari 1984. Pris 20: 

VIC 64-spel 
Jag har många bra maskinkod- och 
adventurespel. Slå en signal, så skickar 
jag HELT GRATIS en lista över spelen. 
Är du snabb nog följer även ett spelpro¬ 
gram med! OBS! Jag byter gärna spel 

Ring 044-24183, Peter 
Yatzi 

Yatzi till VIC 64, delvis i maskinkod, pris 
50:— 

Ring 0760-85429 efter 17, Jan Eriksson 
CASIO PB-100 Fickdator 
säljes för endast 550:— (nypris 800:—). 
21 månaders garanti kvar. Kasta dig på 
telefonen och ring Mats, tel 0500/50075 
efter 16. 

Data-tips 

Stryktipsprogram för VIC 20 + 16 K och 
CBM64. Se artikel VIC rapport 5/6-83. 
Datafiler för engelska och svenska lag (re¬ 
sultatlagring). Valfria system. Kassett 
90:— Diskett 125:—. Beställes via pg. 
4793776-8 eller telefon 0300-11980 
VIC 20 

VIC 20 med A, Ä, O, Bandspelare och 
handböcker, 1 500:—. Tel. 0455-244% 

VIC 20-spel 

Flying saucer attack, Lotto med rättning 
+ 3K, Minefield, Backgammon +3K, 
Amok (JS), Krazy Kong (JS), Catacombs 
+ 3K, Meteor Blaster, Mini Packman. 
Vilka vill du ha! 3 st för 50:—! 

Tore Gullstrand, tel 0764-60325 


Shadowfax. 

Fredrik, tel 0470/655 17 

VIC 20-spel 

Scramble, Asteroids, Cosmidas, Vic pa- 
nic, Road Toad, Astro-fighters, Multi- 
tron, Amok, Destroyer, Snake pit. Ny¬ 
pris ca 1 000:—. Säljes för 100:— + post- 
förskottsavgift. 

Fredrik, tel 090-119392 



VIC 64 

Användarmanual till Graphic printer typ 
VC-1525 köpes. 

Tel 0371-30727 

Blue Max 

Blue Max till VIC 64 köpes. OBS! pa kas- 
sett!!! 

Tel 0500/50076 e. kl 16, Mats 

Bandspelare 

Bandspelare till VIC, max 300: 

Tel 019/230619, Mathias Narving 

Printer, disk 

VIC 1515 printer och VIC floppydisk till 
VIC 20. 16 KB minnesutbyggnad eller 
mer. Maskinkodsmonitor. 

Tel 0340-50940 e. kl 17.00, Lennart Svan¬ 
berg. 



VIC 64 ..... 

5 st toppen-spel säljes för 100:—. AAO 
och Sprite Editor medföljer. Monopol, 
Areadia 64, Token of Ghall, Juice 


VIC 20-spel 

Jag har ca 50 maskinkodsprogram. Skriv 
en lista över dina program till Kari Liuk- 
konen, Grafitvägen 1, 44500 Surte. 

Adventure 

Scott Adams The Count och Voodoo 
Castle till VIC 20 bytes mot Pirate Cove 
och Adventureland. 

Ring 013/15 1017, Fredrik 

§pel 

Önskar byta 8- och 16-k spel till VIC 20. 
Ring 018/401626 (måndagar och ons¬ 
dagar e. kl 16.00) eller skicka en lista till 
Jörgen Ståhlfors, Valthornsvägen 56, 
75250 Uppsala 

VIC 20-spel _ % 

Jag byter bort Jelly Monters (Cartndge), 
Scramble, Amok, Alien Blitz, Grid- 
runner eller Areadia mot Super Expan- 
der. 

Fråga efter Fredrik på tel 0550/82346 
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Tips och 

förslag 



VIC rapport startar en bank i vilken vi samlar tips och 
förslag av alla sorter till din VIC 20 och VIC 64. De kan 
innefatta allt ifrån sladdanslutning till maskinkods- 
programmering. 

VIC rapport kommer att publicera dessa tips och förslag 
löpande. 

Skriv ner dina tips och förslag och skicka dem till 

VIC rapport, Tips och förslag 

Box 420 54 

126 12 Stockholm 


Allt som publiceras belönas! 




\\\\\\\\\ 


MASSBREV 


Manaic Kress 


Box 42054, 126 12 Stockholm Tel. 08-744 59 20 



Wico passar till Commodore Vic 20, Vic 64, Apple, Atari, Coleco, Mattel- Intellivision 

Texas Instruments, TRS -80, IBM PC m.fL 




